上传服务器的文件删除不了,客户端上传和删除服务器端的文件的方法

http://doc.xuehai.net中，C/S客户端软件上传文件至服务器端B/S架构中的文件的方法

,该方法可以将本地文件上传至服务器端指定的文件夹内，然后可在服务器端用http://doc.xuehai.net制作相应的文件读取该上传的文件，最后还可在客户端直接删除服务器端的文件。

上传文件

C/S客户端方法的写法

Private FileSaveURL As String = ""'从打开 文件对 ?框中选 ?的文件包含本地路径

Private Sub btngetFileName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngetFileName.Click

Dim OpenFileDlg As OpenFileDialog = New OpenFileDialog

OpenFileDlg.Filter = "Word文件(*.Doc;*.Xls;)|*.Doc;*.xls;|All Files (*.*)|*.*"

OpenFileDlg.FilterIndex = 1

OpenFileDlg.ShowDialog()

Dim FileURL As String = OpenFileDlg.FileName

FileSaveURL = FileURL

Me.txtFileName.Text = FileSaveURL

End Sub

Private Sub SaveToDB()

http://doc.xuehai.network.UploadFile(FileSaveURL, "http://10.90.11.164/meeting/UpLoad/UpLoad.aspx")

End Sub

B/S 服务器端的方法

首先将下列语句复制至web.config中的标签下。

‘

首先新建aspx 或 ashx的页面文件，命名为UpLoad.aspx

'下记内容输入到aspx 或 ashx 的代码窗口中。

Public Overrides Sub ProcessRequest(ByVal hc As System.Web.HttpContext)

Dim NowPath As String

NowPath = Server.MapPath(Path.GetDirectoryName("../UpLoad/UpLoads/"))

If (Directory.Exists(NowPath) = False) Then

Directory.CreateDirectory(NowPath)

End If

For Each filekey As String In hc.Request.Files

Dim Hfile As HttpPostedFile = hc.Request.Files(filekey)

Dim filePath As String = http://doc.xuehai.netbine(NowPath, Hfile.FileName)

If (File.Exists(filePath)) Then