10.1.10 GetFileNameWithoutExtension
Function GetFileNameWithoutExtension(ByVal FileName as String, Optional Separator as String)

Liest den Dateinamen ohne Extension aus. Wenn aus dem Dateinamen noch das Verzeichnis mit angegeben ist muß der Separator "\" mit angegeben werden.

Orgstr="test.txt"
FileExt=GetFileNameWithoutExtension(Orgstr)
Ergibt FileExt="test"

Orgstr="C:\test\test.txt"
FileExt=GetFileNameWithoutExtension(Orgstr,"\")
Ergibt FileExt="test"

Ohne Separator:
Orgstr="C:\test\test.txt"
FileExt=GetFileNameWithoutExtension(Orgstr)
Ergibt FileExt="C:\test\test"