Ciao a Tutti,

a titolo di utilita' per chi ne avesse bisogno,

posto questo codice che ho trovato utile per sostiuire un file vecchio con uno nuovo, utilizzando Baol come base.


<%
If Request("Upload")="1" then
'
Dim NomeFile, oUpload
Dim objFSO, OldFile
'
Set oUpload = new cUpload
oUpload.SetPathFisico "D:\dir_1\"
oUpload.AutoRename = True
oUpload.load
NomeFile = oUpload.GetFileName()
'
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists("d:\dir_1\"& NomeFile &"") then
Set OldFile = objFSO.GetFile("d:\dir_1\"& NomeFile &"")
OldFile.Delete
oUpload.SaveAs NomeFile
else
oUpload.SaveAs NomeFile
end if
Set objFSO = nothing
'
oUpload.close
Set oUpload=Nothing
'
end if
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>