以文本方式查看主题

-  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=183875)

--  作者:9EQ98
--  发布时间:2022/11/17 8:04:00
--  FTP检查文件夹是否存在,出现问题
请问FTP检查文件夹是否存在?以下情况也是一个BUG吗?
非要根目录为空才能检查得到文件夹的存在?
如果是:请反馈,谢谢!

Dim FTPA As NEW FTPClient
FTPA.HOST = _FTP_Cuur_Host
FTPA.Account =_FTP_Cuur_User
FTPA.Password =_FTP_Cuur_Pass
FTPA.Port = _FTP_Cuur_Port
FTPA.RootDir = ""
OUTPUT.SHOW("A0) " & FTPA.RootDir)
OUTPUT.SHOW("A1) " & FTPA.DirExists("\\ZTCY\\A"))
OUTPUT.SHOW("A2) " & FTPA.DirExists("ZTCY/A\\1"))
OUTPUT.SHOW("A3) " & FTPA.DirExists("\\ZTCY\\A\\1\\X1"))
OUTPUT.SHOW("")
Dim FTPB As NEW FTPClient
FTPB.HOST = _FTP_Cuur_Host
FTPB.Account =_FTP_Cuur_User
FTPB.Password =_FTP_Cuur_Pass
FTPB.Port = _FTP_Cuur_Port
FTPB.RootDir = "/ZTCY/A"
OUTPUT.SHOW("B0) " & FTPB.RootDir)
OUTPUT.SHOW("B1) " & FTPB.DirExists("\\ZTCY\\A"))
OUTPUT.SHOW("B2) " & FTPB.DirExists("ZTCY/A\\1"))
OUTPUT.SHOW("B3) " & FTPB.DirExists("\\ZTCY\\A\\1\\X1"))

图片点击可在新窗口打开查看
[此贴子已经被作者于2022/11/17 8:05:40编辑过]

--  作者:9EQ98
--  发布时间:2022/11/17 8:11:00
--  
搞清楚了: FTP设置根目录时
\\ 与 / 的作用了
这样设置根目录: /ztcy/a/1
不能向返回上级目录

这样设置根目录: /ztcy/a\\1
可以返回上级目录到: /ztcy/a 

以最后一个 / 符,为返回上级目录的分界点