ASPUPLOAD FileExists

[diablobox]

Ciao

volevo implementare dei controlli prima di fare l UPLOAD di un file con ASPUPLOAD

in particolare volevo verificare se il file esiste già e il tipo di file

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

' SOVRASCRIVI FILE
Upload.OverwriteFiles = False
On Error Resume Next

' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 150000, True

' Intercept all exceptions to display user-friendly error
On Error Resume Next
Count = Upload.Save("\filepath\upload\")
%>

<%
For Each File in Upload.Files
if Upload.FileExists("\filepath\upload\" & File.FileName & "") then Response.Redirect("/admin?IDscheda=" & VARIDscheda & "&errore=3")
Next



' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Redirect("/admin/foto-associate.asp?IDscheda=" & VARIDscheda & "&errore=1")
Else
If Err <> 0 Then
Response.Redirect("/admin/foto-associate.asp?IDscheda=" & VARIDscheda & "&errore=10&DescErr=" & Err.Description & "")
End If
end if


%>


così funziona ma i file li carica ugulmente.
Io volevo fare un controllo a priori non a posteriori

Grazie

[imente]

invece di SAVE usa

call Upload.Upload()

ti trovi subito dopo il dato count in

Upload.count

----

alla fine (quando hai controllato se esiste)

se vuoi salvare usi

Save

altrimenti redirect

----

ciao

[diablobox]

Ti ringrazio per la risposta

ma la chiamata dove va inserita??

ho provato ad inserirla all'inizio

Set Upload = Server.CreateObject("Persits.Upload.1")

call Upload.Upload()

IMMAGINECARICATA = File.FileName
response.write IMMAGINECARICATA
Upload.count ()

ma mi da un errore:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Upload.Upload'

[imente]

Originariamente inviato da diablobox
Ti ringrazio per la risposta

ma la chiamata dove va inserita??

ho provato ad inserirla all'inizio

Set Upload = Server.CreateObject("Persits.Upload.1")

call Upload.Upload()

IMMAGINECARICATA = File.FileName
response.write IMMAGINECARICATA
Upload.count ()

ma mi da un errore:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Upload.Upload'

ti chiedo di perdonarmi
do sempre per scontato che le persone usino ASPUpload di BAOL

invece tu usi un oggetto...

ignora ciò che ti ho scritto prima

ciao

[fulviolo58]

Ciao, potresti fare l'upload in una cartella temporanea (di servizio), recuperare il nome del file e la sua estensione e poi verificare nella cartella finale se il file esiste già, a questo punto decidi cosa fare, io lo uso per le foto, MmFoto1 è la foto che ho appena uplodato:

'splitto per ottenere il nome
FotoSplit = Split(MmFoto1, "\")
FotoNome = FotoSplit(UBound(FotoSplit))

'splitto per ottenere l'estensione
FotoSplit = Split(FotoNome, ".")
FotoEstensione = FotoSplit(1)

NomeNuovaPFoto =  QSID & "_" & ProxNumFoto & "." & FotoEstensione

'rinomino
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    Fso.moveFile(PathFotoTemp & "/" & FotoNome), (PathFoto & "/" & NomeNuovaPFoto)
Set Fso = Nothing 

fulvio.

[diablobox]

ciao

se mi confermi che non esiste un sistema per verificare a priori che il file esiste, allora una soluzione l'avrei trovata..

carico il file.. e se esiste già lo cancello

Volevo essere sicuro prima che non vi siano altre soluzioni.

ciao
e grazie