Verfasst am: 08.12.2007, 21:06 Aufrufe: 2013
... n FileExists(ByVal FileName As String) As Boolean
On Local Error Resume Next
FileExists = (Dir$(FileName) <> "")
End Function
GetFilename - Liest aus einem Pfad den Dateinamen aus
Public Function GetFilename(ByVal Filepath As String) As String
GetFilename = Mid$(Filepath, InStrRev(Filepath, "\") + 1)
End Function
GetFilepath ...
[ Time: 13.3446s ][ Queries: 61 (13.2413s) ][ GZIP on - Debug on ]