If Err Then Response.Write "Der opstod en fejl :<br>" & vbCrLf Response.Write Err.Description Else Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf End If
Set objUpload = Nothing
%>
Hvad skal jeg tilføje i min kode for at få navngivet filen, eksempelvis via et felt i en form.
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.MaxFileSize = 50000
On Error Resume Next
Dim strUploadPath
strUploadPath = "/upload/"
Dim intFileCount
objUpload.Upload
For intI=1 to objUpload.Files.count MyUpLoad.Files.Item(intI).Save(strUploadPath & "test.jpg") Next
If Err Then Response.Write "Der opstod en fejl :<br>" & vbCrLf Response.Write Err.Description Else Response.Write objUpload.Files.count & " fil(er) uploadet.<br>" & vbCrLf End If
Set objUpload = Nothing
%>
Det kunne se ud som ovenstående. Jeg skal dog gøre opmærksom på, at jeg ikke selv har komponentet liggende, så der kan godt være lidt fejl i koden. Men komponentet er lavet til at uploader en eller flere filer på en gang, alt efter hvor mange "browse" felter man har på den side som sender filerne. Men alle filerne gemmes i samlingen objUpload.Files, med count finder man så ud af hvor mange filer der er. Man kan så bladre hver fil igennem ved eks at skrive objUpload.Files.Item(1) som giver den første og objUpload.Files.Item(2) som giver den anden fil osv. Hvis du kun har en browse boks, så er der kun en fil og alle andre end objUpload.Files.Item(1) er tomme. Hver objUpload.Files.Item(x) indeholder et fileItem som kan gemmes eller hvad man nu ellers ønsker dette gøres eks. med save(placering)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.