Dim ftp1 As New FtpClientftp1.Host="127.0.0.1"ftp1.Account = "ccgluser"ftp1.Password = "5991404cwk"ftp1.UTF8 = TrueDim dlg As new OpenFileDialogdlg.MultiSelect = TrueIf dlg.ShowDialog = DialogResult.OK Then For Each f As String In dlg.FileNames Dim finfo As New FileInfo(f) If ftp1.Upload(f,"/文件" & finfo.Name.Replace(finfo.Extension, Format(Date.Now, "yyyyMMddHHmmss") & finfo.Extension)) = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If NextEnd Ifftp1.Close
我在服务器上设置了“文件”夹共享,不过登陆的时候需要服务器本身设置的用户名和密码才能访问