以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FTP文件管理器自动打开文件夹  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170737)

--  作者:漂亮美眉vszh
--  发布时间:2021/8/5 15:37:00
--  FTP文件管理器自动打开文件夹
设置了FTP根目录
打开FTP管理器时,显示的是文件夹列表
想打开要目录列表
Dim ftp1 As New FtpClient
ftp1.Host="* * * "
ftp1.Account = "HHFTP"
ftp1.Password = " * * "
ftp1.MakeDir("\\" & _UserCusID)
\'MessageBox.Show(ftp1.RootDir)
ftp1.RootDir = ("\\" & _UserCusID)
[此贴子已经被作者于2021/8/5 15:37:29编辑过]

--  作者:漂亮美眉vszh
--  发布时间:2021/8/5 15:39:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/8/5 15:39:00
--  

ChangeDir

将指定目录设置为当前目录,语法:

ChangeDir(path)

path: 要设置为当前目录的目录。

示例

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
Messagebox
.Show("当前目录: " & ftp1.Currentdir)
ftp1
.Changedir("\\photo")
Messagebox
.Show("当前目录: " & ftp1.Currentdir)


--  作者:漂亮美眉vszh
--  发布时间:2021/8/5 15:40:00
--  
老师,想要默认显示子目录文件夹内的资料列表,不是文件夹,要怎么设置?
--  作者:有点蓝
--  发布时间:2021/8/5 16:05:00
--  
看3楼
--  作者:漂亮美眉vszh
--  发布时间:2021/8/5 16:23:00
--  
我知道我错在哪儿了, DataTables("供应商").DataCols("资料上传").FTPClient.OpenManager(),把这句话改成ftp1.OpenManager() 就可以了