'楼主,你好,这是我在用的代码,可以正常使用,能不能再优化,那就要请高手出招啦,你参考一下.
'说明:QJDM开头的是预先设置的全局代码-字符变量
Dim ftp1 As new ftpclient
ftp1.host= QJDMFTP地址 '返回或设置FTP服务器地址,可以是域名或IP地址
'ftp1.Port= "21" '默认为21,若没修改过串口可以省略此行
ftp1.Account = QJDMFTP名称 '返回或设置登录用户名
ftp1.password = QJDMFTP密码 '返回或设置登录密码
ftp1.RootDir = "/" & QJDMFTP名称 & "/web/" '设置根目录.
Dim dtml As String = QJDM工程简称 & "/员工照片/" '设置字符变量mulc(根据条件生成动态目录名称).
If ftp1.DirExists(dtml) Then '判断目录是否存在
Else
ftp1.MakeDir(QJDM工程简称) '逐步创建目录,FT现在只能逐步创建目录
ftp1.MakeDir(QJDM工程简称 & "/员工照片") '逐步创建目录,FT现在只能逐步创建目录
End If
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog *.bmp;
dlg.Filter= "图形文件|*.bmp;*.jpg;*.jpeg;*.gif;*.TIFF;*.GIF;*.PNG;*.ico" '设置筛选器
'dlg.MultiSelect = True '设置为True,可以选择多个文件,删除此行默认只可以单选文件
If dlg.ShowDialog = DialogResult.OK Then '如果用户选择了文件并且单击了确定按钮
For Each ftp2 As String In dlg.FileNames '遍历选择的文件名称
Dim wjmc As String = dtml & QJDM用户名称 & "-" & FileSys.GetName(ftp2) '设置变量wjmc(文件名称)=指定条件组合而成
If ftp1.Upload(ftp2,wjmc,True) = True Then '如果上传文件成功(Upload("","",True),设为True,则显示上传进度条)
Tables("员工信息").Current("照片") = "/" & QJDMFTP名称 & "/web/" & wjmc '向指定表当前行的指定列(照片)写入FTP的文件路径,引用该文件
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
End If
加好友 
发短信
Post By：2014/6/2 20:09:00 [只看该作者]
