Wie kann ich Dateiüberschreibungen verhindern???(die 2.)

[Martin]

Hallo Leute!

Ja manchmal muss man etwas Geduld haben. Mal bekommst Du Deine ANtwort sofort mal erst nen Tag später.

Habe wiedermal ein Problem.
Es geht um Dateiupload.
Werden momentan problemlos upgeloaded, aber wie kann ich verhindern, das bei zufällig gleichen dateinamen, meine vorhandenen überschrieben werden?

Momentan so:

*********
   Dim myUpload
   Dim file
   Set myUpload = Server.CreateObject("aspUpload.Upload")

'  Upload
'  ******
   myUpload.Upload
   For each file In mySmartUpload.Files
     file.SaveAs("d:\Bilderupload\firmen" & file.FileName)

intCount = intCount + 1      
   Next
*********
Wie kann ich abfragen ob der dateiname schon existiert?
Oder das Speichern nur ausführen wenn kein Namens-Duplikat vorhanden?

Gruß Martin