Disperazione upload di file!!!

[franz79]

Scusatemi tutti,
ho un problemone. Sto costruendo un sistema in ASP che culmina con l'upload di un file sul server. Ho necessità però di poter far uploadare sulla stessa directory anche altri file. Dal momento che però quasi tutti i file saranno .doc e i nomi per forza di cose "allegato1.doc", "allegato2.doc"... e così via e poi da capo, mi chiedevo se è possibile rinominare un file nel momento della scrittura sul server senza che l'utente faccia niente.

Vi prego di rispondermi, grazie
Franz

[Francis87]

perchè no?

semplicemente quando crei il file sul server gli dai un altro nome!

[franz79]

Scusami tanto, ma è la primissima volta che faccio un upload sul server, e così sto utilizzando uno script gratuito che ho trovato in giro...
Ti posto qua sotto il codice: potresti indicarmi dove cosa devo cambiare per modificare il nome del file che sto uploadando dal pc locale, aggiungendo, che so, l'ora attuale?

Scusa e grazie tante


<% Server.ScriptTimeout = 900

percorso = ""

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if

if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if


next


If Upload1 = true then
Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
Response.Write "
Il file "& NomeFile1 &" è stato correttamente salvato sul server"



End If
End If
%>

[Roby_72]

NomeFile1 = NomeFile 
NomeFile1 = "zorro"
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)

La variabile originaria contiene anche l'estensione quindi mettici quella corretta.

Roby

[franz79]

Scusami, ma il mio problema è proprio questo: esistono più di una estensione per i file che posson uploadare: .doc, .txt, .xls ...
Come posso fare?

[Roby_72]

NomeFile1 = NomeFile 
Est = right(NomeFile1, 4)
NomeFile1 = "zorro"
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1 & Est), True, False)

Roby