以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP显示连接成功，创建目录成功，为何实际上没有创建呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106977)
--  作者：632766525
--  发布时间：2017/9/19 14:20:00
--  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没问题，而且显示“创建目录成功”，但最后显示的当前目录没变化，同时也没有在根目录下创建目录成功，请狐爸协助解答。

 

 

 
--  作者：有点甜
--  发布时间：2017/9/19 14:25:00
--  

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

 

Dim ftp As New FTPClient
ftp.Host="192.168.0.209"
ftp.Account = "pat"
ftp.Password = "123"
ftp.OpenManager
--  作者：632766525
--  发布时间：2017/9/19 14:51:00
--  
试过了，在管理器那边没有问题，但是就是不想采用管理器，所以想用代码实现，但出现以上问题，不知为何？
--  作者：632766525
--  发布时间：2017/9/19 15:36:00
--  
找到原因了，相应的目录只能是一层一层的建，不能一次性的建好几级。多谢。