Uploading Files To Server: Having Problems


Active member
Jan 28, 2005
Programming Experience
Hello All,

I have this program

Actually, I have the idea of it. I am very new to programming and I was hoping somebody could help me out here...

What I need it to do is, when a User is selected - the program goes to a certain directory on their machine according to the user selected and gets all the files in that directory and then sends them up to a server - and then moves all of those files that it sent, into another "backup" type folder on the users machine.

My question is this: How to get the program to Upload all the files in a selected directory, to a predefined server?

All your help is always appreciated

My Application:
[font=Lucida Console][color=#0000ff]Dim[/color] filePath [color=blue]As String[/color] = "c:\program files\user\xmit\"
[color=blue]Dim[/color] fileName [color=blue]As String[/color] = filePath & "text1.txt"
[color=blue]Dim[/color] myWebClient [color=blue]As[/color] [color=blue]New[/color] WebClient
[color=blue]Dim[/color] myStream [color=blue]As[/color] Stream = myWebClient.OpenRead(fileName)
[color=blue]Dim[/color] myStringWebResource [color=blue]As String[/color]
[color=blue]Dim[/color] strUploadPath [color=blue]As String[/color]
	 myStringWebResource = "" 
	 strUploadPath = myStringWebResource & "/UploadFile.aspx"
	 myWebClient.UploadFile(strUploadPath, "POST", fileName)
	 txtStatus.Text = "Successfully Uploaded files " + myStringWebResource
Catch ex [color=blue]As[/color] Exception
	 txtStatus.Text = "Error Occured" + ControlChars.Cr
	 txtStatus.Text = txtStatus.Text + ex.Source + ControlChars.Cr
	 txtStatus.Text = txtStatus.Text + ex.Message + ControlChars.Cr
[color=blue]End[/color] Try[/font]
[font=Lucida Console]
My ASPX File:
<%@ Import Namespace="System"%>
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Net"%>
<%@ Import NameSpace="System.Web"%>
<Script language="VB" runat=server>
	Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim f As String
Dim file
For Each f In Request.Files.AllKeys
	 file = Request.Files(f)
	 file.SaveAs("c:\inetpub\wwwroot\" file.FileName)
Next f
End Sub
<p> Upload complete. </p>
Top Bottom