Question

vb inet ftp 创建路径

用 VB inet 控件怎么在服务器上面创建一个未知长度的路径 /AAA/BBB/CCC 要创建的路径可能不止三级，

Public Sub CreateDirInServer(ByVal PathStr As String, InetToServer As Inet)
'在服务器上面递归创建路径，Inet 控件已经成功连接服务器
Dim DirAry() As String '用来存放分割路径的数组
Dim C As Integer '动态数组的当前最大下标
Do While Dir(PathStr, vbDirectory) = "" '???????? 问题在这里，这句只能判断本地路径是否存在
'怎么才能判断服务器上面路径是否存在？
C = C + 1
ReDim Preserve DirAry(C)
DirAry(C) = PathStr '把分割后的路径字符串放在数组中
PathStr = RemoveLastFolder(PathStr)
Loop
If C = 0 Then
Exit Sub '说明传入的路径本来就是存在的
End If
Dim I As Integer
For I = C To 1 Step -1
InetToServer.Execute "MkDir " & DirAry(I) '因为 MKDir 每次只能创建一个文件夹，所以要一层一层的创建
Next I
End Sub
RemoveLastFolder 函数的作用是把传入的路径字符串 截成一个数组
例如把 /AAA/BBB/CCC 分割成

/AAA/BBB/CCC

/AAA/BBB

/AAA

放入三个元素的数组

Answer 1

写个on error resume next，然后直接冲上去MKDIR好了，在MKDIR后面判断是否返回错误码，服务器上有没有这目录就知道了呗。

追问

你说的对，我也就是不管他有没有目录，一级一级的直接创建，结果最后也没有出错，存在的就存在好了，没有的就自动创建了，也达到目的了，就是感觉有点慢