how to select multiple files from file upload using a button

[sandeshas]

hi
how to select multiple files from file upload browser,
i need to get file upload browser window by using button,instead of using <input type="file">
after selecting the file it has to be placed in a table and have to retriev that file by using struts action...i have to use jsp,struts.

Thanks in advance
sandesh

[nspils]

Implement a JFileChooser. Take a look at:

http://java.sun.com/docs/books/tutor...lechooser.html

[amyzhao]

Public Sub DownloadFile(ByVal strFileFullName As String, Optional ByVal strContentType As String)
Dim sFilePath As String
Dim strFileName As String
Dim strDebug As String

strFileName = GetFileName(strFileFullName)
If strFileName = "" Then
m_objResponse.Write "Filename Not specified."
m_objResponse.End
End If

'Start the download process if all is good
m_objResponse.Clear
m_objResponse.ContentType = "application/octet-stream"
m_objResponse.AddHeader "content-disposition", "attachment; filename=" & strFileName
strDebug = "FileName : " & strFileName
'use stream to write file
Dim adoStream
Set adoStream = CreateObject("ADODB.Stream")
strDebug = "adoStream begin : " & strFileName
adoStream.Open
adoStream.Type = 1
strDebug = "adoStream : " & strFileFullName
adoStream.LoadFromFile (strFileFullName)
m_objResponse.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing
m_objResponse.End

End Sub

When I call from my asp page HIRExFileDownload.DownloadFile(strDownFile) to the downloadFile function in a dll(it is in dll, wrote by VB6), some how the file name is changed to "File1.pdf," follow the file name extention, there is a comma added like "pdf," that caused the download file problem. is there anyone know what's wrong with the DownloadFile function. It is working with IE, but is not work for Firefox. Please help.

Thanks,
Amy

[amyzhao]

Public Sub DownloadFile(ByVal strFileFullName As String, Optional ByVal strContentType As String)
Dim sFilePath As String
Dim strFileName As String
Dim strDebug As String

strFileName = GetFileName(strFileFullName)
If strFileName = "" Then
m_objResponse.Write "Filename Not specified."
m_objResponse.End
End If

'Start the download process if all is good
m_objResponse.Clear
m_objResponse.ContentType = "application/octet-stream"
m_objResponse.AddHeader "content-disposition", "attachment; filename=" & strFileName
strDebug = "FileName : " & strFileName
'use stream to write file
Dim adoStream
Set adoStream = CreateObject("ADODB.Stream")
strDebug = "adoStream begin : " & strFileName
adoStream.Open
adoStream.Type = 1
strDebug = "adoStream : " & strFileFullName
adoStream.LoadFromFile (strFileFullName)
m_objResponse.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing
m_objResponse.End

End Sub

When I call from my asp page HIRExFileDownload.DownloadFile(strDownFile) to the downloadFile function in a dll(it is in dll, wrote by VB6), some how the file name is changed to "File1.pdf," follow the file name extention, there is a comma added like "pdf," that caused the download file problem. is there anyone know what's wrong with the DownloadFile function. It is working with IE, but is not work for Firefox. Please help.

Thanks,
Amy