Wie kann ich Dateiüberschreibungen verhindern???

[Martin]

Hallo Leute!

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)
*********
Wie kann ich abfragen ob der dateiname schon existiert?
Oder das Speichern nur ausführen wenn kein Namens-Duplikat vorhanden?

Gruß Martin