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"