Code Snippet : Get Safe File Name

Reply

ericwsw Posted: 04-24-2005 8:44 AM

rated by 0 users

Code Snippet No: 0010

Category: Files

Description: Function that replaces invalid filename characters

Source

    Public Function GetSafeFileName(ByVal Filename As String) As String

        Dim newChar As Char = "_"c

        Filename = Filename.Replace("<", newChar)

        Filename = Filename.Replace(">", newChar)

        Filename = Filename.Replace("""", newChar)

        Filename = Filename.Replace("?", newChar)

        Filename = Filename.Replace("*", newChar)

        Filename = Filename.Replace("\", newChar)

        Filename = Filename.Replace("/", newChar)

        Filename = Filename.Replace("|", newChar)

        Filename = Filename.Replace(":", newChar)

        Return Filename

    End Function