Private Shared Function IsFileNameValid(ByVal inputFileName As String) As _
      Boolean
        Dim exception() As String = {"CON", "PRN", "AUX", "NUL", _
                                     "COM1", "COM2", "COM3", "COM4", "COM5", _
                                     "COM6", "COM7", "COM8", "COM9", _
                                     "LPT1", "LPT2", "LPT3", "LPT4", "LPT5", _
                                     "LPT6", "LPT7", "LPT8", "LPT9", _
                                     "CLOCK$", " "}
        For index As Integer = 0 To exception.Length - 1
            If inputFileName = exception(index) Then Return False
        Next
        Const MAX_PATH As Integer = 260
        If inputFileName.Length > MAX_PATH - 4 Then Return False
        Return Not System.Text.RegularExpressions.Regex.Match(inputFileName, ( _
          "[\\/\:\*\?\""""\<\>\|]")).Success
    End Function