File Manager

<H1>aspSmartUpload : Sample 2</H1>
<HR>

<%
' Variables
' *********
 Dim mySmartUpload
 Dim file
 Dim intCount
 intCount=0
 
' Object creation
' ***************
 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
         file.SaveAs(Server.MapPath("Upload/" & file.FileName))
         ' sample with a physical path 
         ' file.SaveAs("c:\temp\" & file.FileName)

' Display the properties of the current file
 ' ******************************************
 Response.Write("Name = " & file.Name & " ")
 Response.Write("Size = " & file.Size & " ")
 Response.Write("FileName = " & file.FileName & " ")
 Response.Write("FileExt = " & file.FileExt & " ")
 Response.Write("FilePathName = " & file.FilePathName & " ")
 Response.Write("ContentType = " & file.ContentType & " ")
 Response.Write("ContentDisp = " & file.ContentDisp & " ")
 Response.Write("TypeMIME = " & file.TypeMIME & " ")
 Response.Write("SubTypeMIME = " & file.SubTypeMIME & " ")
 intCount = intCount + 1
 End If
 Next

' Display the number of files which could be uploaded
' ***************************************************
 Response.Write(" " & mySmartUpload.Files.Count & " files could be uploaded. ")

' Display the number of files uploaded
' ************************************
 Response.Write(intCount & " file(s) uploaded. ")
%>
</BODY>
</HTML>

File Manager

Editing: aspUpload/Sample2.asp