Dim pictureviwername As String = "F_CREDITPICTURE"
Dim Tablename As String = "T_CUSTBASE"
Dim piv As WinForm.PictureViewer = e.Form.controls(pictureviwername)
Dim ftp As new FTPClient
Dim dr As DataRow
dr = DataTables("软件设置").Find("内部设置名称 = 'ftpip'")
ftp.host = dr("内部设置属性")
dr = DataTables("软件设置").Find("内部设置名称 = 'ftp账号'")
ftp.Account = dr("内部设置属性")
dr = DataTables("软件设置").Find("内部设置名称 = 'ftp密码'")
ftp.password = dr("内部设置属性")
If ftp.DirExists("\KH-0000058") = False Then
ftp.makedir("\KH-0000058")
End If
piv.FTPclient = ftp
FTP.ChangeDir("\KH-0000058")
设置默认路径这几句，好像没起作用。
此主题相关图片如下：20190806094055.png
[此贴子已经被作者于2019/8/6 9:43:23编辑过]
加好友 
发短信
Post By：2019/8/6 9:42:00 [显示全部帖子]
