vb.net 上传文件到服务器的指定活页夹目录下,路径怎么写. 急!!! 在线等待......

[sullywang]

vb.net 上传文件到服务器的指定活页夹目录下,路径怎么写. 急!!! 在线等待......

[OOQQOO]

学习

[CloneCenter]

在指定的目录下创建文件就可以了。

[LYDF4151]

dim withevents mywebclient as new system.net.webclient

Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim fod As New System.Windows.Forms.OpenFileDialog

If fod.ShowDialog = Windows.Forms.DialogResult.OK Then
'MsgBox(System.IO.Path.GetFileName(fod.FileName).ToString)

Dim isa As Boolean = My.Computer.Network.IsAvailable
If isa = True Then
Dim remoteUri As String = fod.FileName
mywebclient = New System.Net.WebClient

Dim fileName As String
fileName = "c:\" + System.IO.Path.GetFileName(fod.FileName)
mywebclient.DownloadFileAsync(New Uri(remoteUri), fileName)
Dim FmDB As Integer
FmDB = FileLen(fileName) / 1024
Me.ProgressBar1.Maximum = 100
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Step = 1
Else
MsgBox("电脑网络未连接.不能使用该功能")
End If

End If
End Sub

Private Sub myWebclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles mywebclient.DownloadProgressChanged

Static ssd As Integer
ssd = (e.BytesReceived - ssd) / 1024
Label1.Text = "已下载：" & CInt((e.BytesReceived / 1024).ToString) & "KB"
Label2.Text = "文件大小：" & CInt((e.TotalBytesToReceive / 1024).ToString) & "KB"
Label3.Text = "已完成：" & e.ProgressPercentage.ToString & "%"
Label4.Text = "速度：" & ssd & "KB/秒"
ssd = e.BytesReceived
Me.ProgressBar1.Value = e.ProgressPercentage
End Sub

[HANTANGXUETOMS]

好像是下载代码，请问上传啊！