|
Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"
ftp1.UTF8 = True
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If 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
Next
End If
ftp1.Close
|
加好友 
发短信
Post By：2015/6/19 16:58:00 [只看该作者]
