- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求助pictureviewer默认路径问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139111)
-- 发布时间：2019/8/6 9:42:00
-- [求助]求助pictureviewer默认路径问题。
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编辑过]
-- 发布时间：2019/8/6 9:44:00
--
点新增还是到ftp根目录这里。。
-- 发布时间：2019/8/6 10:14:00
--
设置RootDir
FTP.RootDir = "\\KH-0000058"
FTP.ChangeDir("\\KH-0000058")