‘请高手指点下，下面代码有什么问题吗？创建目录失败啊。
（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编辑过]
加好友 
发短信
Post By：2016/3/31 1:44:00 [只看该作者]
