ich habe hier aus dem Forum folgende Funktion für die Überprüfung
korrekter Dateinamen eingebaut:
Public Function IsValidFileName(ByVal strName As String) As Boolean
Dim objRegExp As Object
Set objRegExp = CreateObject("vbscript.regexp")
With objRegExp
.Global = True
.Pattern = "^[^\/\\:\*\?\|\""""]{1,20}$"
.IgnoreCase = True
IsValidFileName = .test(strName)
End With
Set objRegExp = Nothing
End Function
Warum wird
HU und AU und Inspektion.doc
als falsch bemängelt ?
Danke, Sven