Private Function IsValideFileName(ByVal FileName As String) As Boolean
Dim InvalidFileNameChars() As Char = System.IO.Path.GetInvalidFileNameChars()
For Each InvalidFileNameChar As Char In InvalidFileNameChars
If FileName.Contains(InvalidFileNameChar.ToString()) Then Return False
Next
Return True
End Function
Private Function ConvertToValideFileName(ByVal FileName As String, ByVal RemplaceChar As Char) As String
Dim InvalidFileNameChars() As Char = System.IO.Path.GetInvalidFileNameChars()
For Each InvalidFileNameChar As Char In InvalidFileNameChars
If FileName.Contains(InvalidFileNameChar.ToString()) Then FileName = FileName.Replace(InvalidFileNameChar, RemplaceChar)
Next
Return FileName
End Function