Sub MakeUniqueFilename($fileName As String) As String


Returns a unique file name by adding numbers to the file name specified in $fileName. The returned file name does not exist in the specified directory.


Parameters


  • $fileName ... String expression that specifies the absolute path and file name.


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"