Errore Nome File

[br1]

si direbbe che il sistema aggiunga quella parte se trova gia' esistente un file con il nome uguale... ma ho fatto un esame abbastanza superficiale

FileNameShort = Last_Name1
back = "-02_"			

		If Not OverWrite Then
		  i = 0
		
		  Do While oFS.FileExists(sPath & FileNameShort & back & id & "." & FileExt)
		    i = i + 1
		    back = CStr(i)
		  Loop
		End If

		Set oFile = oFS.CreateTextFile(sPath & FileNameShort & back & id & "." & FileExt, True)