MakeUniqueFilename

Top  Previous  Next

Sub MakeUniqueFilename($fileName As String) As String

 

Returns an unique filename by adding numbers to the filename specified in $fileName. The returned filename doesn't exist in the specified directory.

 

Parameters

 

$fileName ... String expression. Absolute path and filename.

 

Example:

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"