主题：IIS的ftp不能一次建两级目录吗？

MakeDir

在ftp上创建目录，语法：

MakeDir(Path)

Path：要创建的目录。

如果创建目录成功，则返回True，否则返回False.

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir("\photo\hdx") Then
    Messagebox.Show("创建目录成功!")
Else
    Messagebox.Show("创建目录失败!")
End If

注，单独创建一个是成功的！

ftp1.MakeDir("photo“）

如果用《帮助》的代码是提示("创建目录失败!")

用了分隔了，不稳定，一时可以，一时又乱，搞了两天了！

Messagebox.show("当前FTP目录" & ftp1.CurrentDir)
If ftp1.DirExists(ftp_dir) = False  Then
        Dim ftp_dirs() As String
        ftp_dirs = ftp_dir.split("\")
        For Index As Integer = 2 To ftp_dirs.Length - 1   '注因为第0，1数组是系统分配的，所以从第3位数组开始！
            Messagebox.show("历遍" & Index)
            If ftp1.DirExists( ftp_dirs(Index)) = False  Then
                Messagebox.show("历遍" & Index & "判断FTP目录  :   "  &  ftp_dirs(Index)  & " [不存在] "  )
               
                If ftp1.MakeDir( ftp_dirs(Index)) Then
                    ftp1.Changedir( ftp_dirs(Index))
                    Messagebox.show("改变FTP目录到:    " & ftp_dirs(Index))
                    Messagebox.show("当前FTP目录" & ftp1.CurrentDir)
                End If
            Else
                ftp1.Changedir(ftp_dirs(Index))
                Messagebox.show("历遍" & Index & "判断FTP目录  :   "  &  ftp_dirs(Index)  & " [存在] "  )
                Messagebox.show("当前FTP目录" & ftp1.CurrentDir)
            End If
        Next
    End If

终于用分隔完成了，上面的错误是由于历遍的过程改过了路径，所以再次历遍创建目录出错了！