MakeUniqueFilename

Top  Previous  Next

function MakeUniqueFilename(sFileName As String) As String

 

Retourniert einen eindeutigen Dateinamen durch das Hinzufügen von Zahlen an den angegebenen Dateinamen. Der zurückgegebene Dateiname existiert noch nicht im angegebenen Verzeichnis.

 

Parameter

 

sFileName ... String-Ausdruck. Absoluter Pfad der Datei.

 

Beispiel:

Dim sFilename

 

sFilename = "e:\exp\main.txt"

 

' Assume that e:\exp\main.txt doesn't exist

sFilename = MakeUniqueFilename(sFilename)

' returns sFilename = "e:\exp\main.txt"

 

StringToFile(sFilename, "dummy")

sFilename = MakeUniqueFilename(sFilename)

' returns sFilename = "e:\exp\main(1).txt"