为什么只能创建到"\公司图集规范\" & dr("资料类型") & "\"，不能全部文件夹一次性创建，我需要的是一次性生成："\公司图集规范\" & dr("资料类型") & "\" & dr("分部工程") & "\" & dr("标准名称") & "\"
'========ftp远程创建文件夹==========
Dim dr As Row = Tables("图集规范").Current
Dim ftp1 As New FtpClient
Dim fpth As String = "\公司图集规范\" & dr("资料类型") & "\" & dr("分部工程") & "\" & dr("标准名称") & "\"
'msgbox(fpth)
ftp1.Host = "**"
ftp1.Account = "**"
ftp1.Password = "zj***++"
If ftp1.DirExists(fpth) = False Then '判断指定的目录不存在
ftp1.MakeDir(fpth) '在ftp上创建目录
End If
加好友 
发短信
Post By：2018/11/16 2:15:00 [只看该作者]
