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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-8/2019869432244822.png)
[此贴子已经被作者于2019/8/6 9:43:23编辑过]