Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"dim file as string = "\ZZFJ\" & FileSys.GetName(e.Form.Controls("textbox2").value)
If ftp1.Upload(e.Form.Controls("textbox2").value,file ) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
flm.AddFile(file)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
[此贴子已经被作者于2020/11/3 8:31:05编辑过]