Hi all,

Im doing a multiple upload with aspSmartUpload. I loop through the file elements. One of the form elements i want to put in one folder and the others in another folder.

To do this in need to get the fieldname of the current file upload, so i can do a condition when saving the file.

Thanks for your help

Tim

TDA

__________________
TDA

How many other fieldnames you have? Is that so, you have many fieldnames all filled with filenames and do get uploaded using aspsmartupload?

Can you explain more on that?

_________________________
- Vijay G
Strive for Perfection

I have 5 file fields in the form previously

OppImage
OppFile1
OppFile2
OppFile3
OppFile4

I need to put the OppImage into a directory called 'uploads' and the other 4 files into a directory called 'files'

I would like to do this by checking the fieldname of the current file being uploaded.(using aspSmartUpload) then asigning it to the right directory.

I have found a solution by using a counter in my For Loop because i know the first file in the form is the OppImage. But this solution i have done would not be applicable for dynamic forms and cause a problem if somehow the field count failed.

Heres the solution i have working currently.

thanks Tim

<%
' Variables
' *********
   Dim mySmartUpload
   Dim file
   Dim intCount
   intCount=0

' Object creation
' ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload Opp Image
    mySmartUpload.Upload
' Select each file
' ****************
   FieldCount = 1
   For each file In mySmartUpload.Files
   ' Only if the file exist
   ' **********************
      If not file.IsMissing Then

      'Generate Random file name
      dim max,min
      max=99999999
      min=00000001
      RanFileName = (Int((max-min+1)*Rnd+min))
      ' Add extension
      FileExt = "." & file.FileExt
      ' Merge Random File Name and extention
      FileName = RanFileName & FileExt
      If FieldCount = 1 Then
         file.SaveAs("/uploads/" & FileName)
      Else
           file.SaveAs("/files/" & FileName)
      End If
         Response.Write "File Uploaded: " & FileName & "<BR>"
End If
FieldCount = FieldCount + 1
Next



%>

TDA