主题：为什么FTP远程创建文件夹出错

DIM FPTH AS STRING = "A\B\C\D"

Dim paths = fpth.split("\")

Dim path As String = "\"

For i As Integer = 1 To paths.length-1    
    path &= "\" & paths(i)    
    If ftp1.DirExists(path) = False Then  '判断指定的目录不存在
        ftp1.MakeDir(path)                '在ftp上创建目录
    End If
Next

用这个代码一层一层创建也失败呀？？？？