Private fileCount as Integer
Private destination as string   ` in der Form irgendeineDate_0.extension
Private fileSystem as new fileSystemObject
Private extensin as string

while ( fileSystem.fileExists(destination))
        filecount = filecount + 1
       destination = left(destination. (len(destination) - 2)
       destination = destionation & "_" & filecount & "." & extension
wend

Felder mit * m?ssen korrekt ausgef?llt werden