Grazie Baol per il suggerimento, ho risolto in questo modo senza più usare la funzione:
codice:
Set gFS = CreateObject("Scripting.FileSystemObject")
        if gFS.FileExists("d:\inetpub\...\" & SaveFiles & "") then
        Do
			Counter = Counter + 1
			NewFileName = SaveFiles
			NewFileName = Counter & "-" & NewFileName  
           Loop while gFS.FileExists("d:\inetpub\...\"& NewFileName &"")
            gFS.MoveFile "d:\inetpub\...\"&SaveFiles&"", "d:\inetpub\...\"&NewFileName&""
  set gFS = nothing
  end if
E sembra funzionare... cioè rinomino in sequena numerata tutti i files che hanno lo stesso nome...