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

[Stefan Falz]

Hallo Martin,

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

manchmal auch gar nicht (oder was ist der Grund für dasselbe Posting
wie unter http://www.teamone.de/selfaktuell/forum/messages/105830.html)?

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

Sollte es nicht "For each file In myUpload.Files" heissen?

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?

Da die von Dir verwendete Komponente das nicht unterstützt, musst Du
mit FileExists (einer Methode des FSO) selbst prüfen, ob die Datei
schon vorhanden ist.

<%
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
    If Not objFileSys.FileExists("C:\verzeichnis\dateiname.txt")
        ' --- Alles OK, Datei noch nicht da
        ...
        Else
            ' --- Datei schon vorhanden
            ...
    End if
Set objFileSys = Nothing
%>

Tschau, Stefan