MakeUniqueFilename

Top  Previous  Next

Sub MakeUniqueFilename($fileName 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

 

$fileName ... 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"