J'ai le code suivant, mais mon soucis est que l'upload ne se passe pas du tout, et je ne parviens pas à trouver mon erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 On Error Resume Next
 Dim mySmartUpload
 Dim intCount
 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
   mySmartUpload.AllowedFilesList = "htm,txt"
  DeniedFilesList can also be used :
   mySmartUpload.DeniedFilesList = "exe,bat,asp"
   mySmartUpload.DenyPhysicalPath = True
   mySmartUpload.MaxFileSize = 50000
   mySmartUpload.TotalMaxFileSize = 200000
   mySmartUpload.Upload
   intCount = mySmartUpload.Save("C:\")
   If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
   Else
      Response.Write(intCount & " file(s) uploaded.")
   End If