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