主题：FTP显示连接成功，创建目录成功，为何实际上没有创建呢？

Dim ftp As New FTPClient
     ftp.Host="192.168.0.209"
      ftp.Account = "pat"
     ftp.Password = "123"
If ftp.Connect=True Then
Messagebox.Show("连接成功")
End If
Messagebox.Show(ftp.CurrentDir)

 Dim str As String
       str= "INNERNUM"
       str="\"+str
       MessageBox.show(str)
If ftp.DirExists(str) Then
   ftp.ChangeDir(str)
   Messagebox.Show("目录已存在!")
Messagebox.Show(ftp.CurrentDir)

Else
   ftp.MakeDir(str)
   ftp.ChangeDir(str)
Messagebox.Show("创建目录成功!")
Messagebox.Show(ftp.CurrentDir)
End If

 

上述代码，也不知错在呢了，连接ftp没问题，而且显示“创建目录成功”，但最后显示的当前目录没变化，同时也没有在根目录下创建目录成功，请狐爸协助解答。

 

 

 

看看你有没有创建目录等权限，在管理器那里创建试试。

 

Dim ftp As New FTPClient
ftp.Host="192.168.0.209"
ftp.Account = "pat"
ftp.Password = "123"
ftp.OpenManager

试过了，在管理器那边没有问题，但是就是不想采用管理器，所以想用代码实现，但出现以上问题，不知为何？

找到原因了，相应的目录只能是一层一层的建，不能一次性的建好几级。多谢。