主题：没有子目录该怎么判断？

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

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

谢谢！

DirExists

判断指定的目录是否存在，语法：

DirExists(Path)

Path：要判断的目录。

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.DirExists("\photo") Then 
    MessageBox.show("目录已经存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

http://www.foxtable.com/help/topics/1410.htm

 没有目录和文件也不会报错。除非path不存在

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

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

看2楼

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

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

看2楼

 没有目录，就根本不会进入循环，就不可能会报错。

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

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

 测试了一下，这段代码无论如何都不可能会报错，也没理由报错

 

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