以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]FTP创建目录失败，什么愿意呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83087)

--  作者：FOTOER --  发布时间：2016/3/31 1:44:00 --  [求助]FTP创建目录失败，什么愿意呢？ ‘请高手指点下，下面代码有什么问题吗？创建目录失败啊。 （FTP参数需修改一下。） Dim ftp As New FTPClient Dim pth,_uxx,_uzy,_ubj,_uyhm As String _uxx = "zh" \'中华" _uzy = "rm" \'人民" _ubj = "gh" \'共和" _uyhm = "g" \'国" ftp.host = "182.18.22.140" ftp.Account = "sql42988" ftp.password = "bbbbbb111" If ftp.Connected = False \'如果FTP没有连接     If ftp.Connect Then \'连接FTP         Messagebox.show("连接FTP成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)         pth = "/yan6net/zzph/" & _uxx & "/" & _uzy & "/" & _ubj & "/" & _uyhm & "/tg"  \'文件远程目的地路径         If ftp.DirExists(pth) = False Then \'目录不存在             messagebox.show("目录不存在")             If ftp.MakeDir(pth) \'创建 之  创建目录有层数限制么？                 messagebox.show(pth & "目录已创建")             Else                 Messagebox.Show(pth & "创建目录失败!")             End If         Else             messagebox.show("目录存在")         End If     Else         Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)     End If End If [此贴子已经被作者于2016/3/31 1:49:22编辑过]

--  作者：大红袍 --  发布时间：2016/3/31 1:48:00 --   必须一层一层的创建

--  作者：FOTOER --  发布时间：2016/3/31 1:50:00 --   哦。谢谢。