Scott
09-06-2005, 04:08 AM
Here is a workable (though not quite finished) user control for file uploads that you nay be able to adapt for your purposes.
[quote]<%@ControlLanguage='VB'ClassName='FileUpload'%>
<scriptlanguage='vb'runat='server'>
'------------------------------------------------
subPage_Load(senderasobject,easeventargs)
ifnotIsPostBackthenspan1.InnerHtml=''
endsub
'------------------------------------------------
subSubmitButton_Click(senderasobject,easeventargs)
'Grabthefilenamefromitsfullyqualifiedpathatclient
DimstrFileNameasstring=File1.PostedFile.FileName
'uploadpathandfile
dimUploadFileasstring=Server.MapPath('')&'\'&'DUDocs\'&_
System.IO.Path.GetFileName(strFileName)
''*****NEEDCODETOCHECKWHETHERFILEEXISTSANDPROMPTFO ROVERWRITE
try
File1.PostedFile.SaveAs(UploadFile)
Span1.InnerHtml='UploadSuccessful!'
catchexasexception
Span1.InnerHtml='<spanstyle='color:red;'>Thefilecouldnotbeuploaded</span>'
endtry
endsub
</script>
<html>
<head><title>FileUpload</title></head>
[b]
Selectafiletoupload:[b]
<inputtype='file'id='File1'runat='server'style='wid th:100%;'>
<p/>
<inputtype='submit'id='Submit1'runat='server'value= 'UploadFile'OnServerClick='SubmitButton_Click'>
<p/>
<spanid='Span1'runat='server'/>
</body>
</html></CODE>
The control is based on this Microsoft article:
msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaspp/html/aspnet-fileupload.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaspp/html/aspnet-fileupload.asp)
Post Edited (Scott) : 9/6/2005 5:11:00 PM GMT
[quote]<%@ControlLanguage='VB'ClassName='FileUpload'%>
<scriptlanguage='vb'runat='server'>
'------------------------------------------------
subPage_Load(senderasobject,easeventargs)
ifnotIsPostBackthenspan1.InnerHtml=''
endsub
'------------------------------------------------
subSubmitButton_Click(senderasobject,easeventargs)
'Grabthefilenamefromitsfullyqualifiedpathatclient
DimstrFileNameasstring=File1.PostedFile.FileName
'uploadpathandfile
dimUploadFileasstring=Server.MapPath('')&'\'&'DUDocs\'&_
System.IO.Path.GetFileName(strFileName)
''*****NEEDCODETOCHECKWHETHERFILEEXISTSANDPROMPTFO ROVERWRITE
try
File1.PostedFile.SaveAs(UploadFile)
Span1.InnerHtml='UploadSuccessful!'
catchexasexception
Span1.InnerHtml='<spanstyle='color:red;'>Thefilecouldnotbeuploaded</span>'
endtry
endsub
</script>
<html>
<head><title>FileUpload</title></head>
[b]
Selectafiletoupload:[b]
<inputtype='file'id='File1'runat='server'style='wid th:100%;'>
<p/>
<inputtype='submit'id='Submit1'runat='server'value= 'UploadFile'OnServerClick='SubmitButton_Click'>
<p/>
<spanid='Span1'runat='server'/>
</body>
</html></CODE>
The control is based on this Microsoft article:
msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaspp/html/aspnet-fileupload.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaspp/html/aspnet-fileupload.asp)
Post Edited (Scott) : 9/6/2005 5:11:00 PM GMT