Boa tarde, tenho um programa que estou a dar uma string como nome de um ficheiro, mas caso tenha caracteres proibidos quero que me substitua por um underscore "_", e o programa executa essa função, pois pelo "MsgBox strInput" vejo que ele substitui, os caracteres inválidos, mas não os atribui à variável zipName, o que faz com que ele tente dar o nome com os caracteres inválidos, coisa que o windows não aceita. Alguém sabe a razão?
zipName = "Backup_??" & license & "_" & Format(Now, "dd-mm-yyyy hh-mm-ss") & ".zip"
Call ValidateString(zipName)
...
Public Function ValidateString(ByVal strInput As String) As String
Dim strInvalidChars As String
Dim i As Long
strInvalidChars = "\/:*?""<>|"
For i = 1 To Len(strInvalidChars)
strInput = Replace$(strInput, Mid$(strInvalidChars, i, 1), "_")
Next
MsgBox strInput
End Function
↧