没有子目录该怎么判断？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 没有子目录该怎么判断？

共有3422人关注过本帖树形打印复制链接主题：没有子目录该怎么判断？

machle

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

没有子目录该怎么判断？ 发帖心情

Post By：2015/5/8 15:22:00 [显示全部帖子]

For Each p As String In ftp1.GetdirList(path)

若是path下没有目录也没有文件，p会报错。该怎么加个判断是否存在子目录？

谢谢！

machle

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

回复：（Bin）DirExists判断指定的目录是否存在，语法... 发帖心情

Post By：2015/5/8 15:33:00 [显示全部帖子]

确切的说是判断子目录是否存在...

path存在，但是下面没有子目录和文件

报的错误：指定的参数已超出有效值的范围。
参数名: index

Dim path As String = args(0)

For Each p As String In ftp1.GetdirList(path)

    Functions.Execute("FTP目录", path & "/" & p)

    Dim ss As String = path & "/" & p

    ss = ss.Replace("/","\")

    'Tables("FTPPath").StopRedraw

    Tables("FTPPath").AddNew()
    Tables("FTPPath").Current("第一列") = ss

    'Tables("FTPPath").ResumeRedraw
Next

ftp1.close

machle

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

回复：（大红袍）没有目录和文件也不会报错。除... 发帖心情

Post By：2015/5/8 15:35:00 [显示全部帖子]

path存在
，Functions.Execute("FTP目录", vars("RootPath"))

传过来的路径下面没有子目录

machle

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：4035 威望：0 精华：0 注册：2014/7/29 23:42:00

回复：（Bin）看2楼 发帖心情

Post By：2015/5/8 15:47:00 [显示全部帖子]

看了好几次2楼，也没看明白，您给我的这个代码是看看括号里的那个目录是否存在，而我需要的是看括号里那个目录是否有子目录存在，实际操作的时候我应该是不知道是否有子目录存在；
当前我知道括号里那个目录没有子目录，所以查问题，发现代码在用不存在的路径给p赋值，所以才报错。

我是这么认为的，请多指教。谢谢！