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$", " "})
 
    If exception.Contains(inputFileName.Trim.ToUpper) Then
        Return False
    Else
        Const MAX_PATH As Integer = 260
        If inputFileName.Length > MAX_PATH - 4 Then Return False
 
        Dim invalidchars As New System.Text.StringBuilder _
                (System.IO.Path.GetInvalidFileNameChars)         
        For i As Integer = 0 To invalidchars.Length - 1
           If inputFileName.Contains(invalidchars(i)) Then Return False
        Next i
 
        'Zur Sicherheit noch alle Steuerzeichen prüfen  
        For i As Integer = 0 To 31
           If inputFileName.Contains(Chr(i)) Then Return False
        Next i
        'oder
        'For i As Integer = 0 To inputFileName.Length - 1
        '   If Char.IsControl(inputFileName(i)) Then Return False
        'Next i
        Return True
    End If
End Function