以文本方式查看主题

-  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=127529)
--  作者：ZJZK2018
--  发布时间：2018/11/16 2:15:00
--  为什么FTP远程创建文件夹出错
为什么只能创建到"\\公司图集规范\\" & 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
--  作者：有点甜
--  发布时间：2018/11/16 9:06:00
--  

不能一次性创建，必须一层一层的创建。

 

你可以写成循环，如代码

 

Dim paths = fpth.split("\\")

Dim path As String = "\\"

For i As Integer = 1 To paths.length-1    
    path &= "\\" & paths(i)    
    If ftp1.DirExists(path) = False Then  \'判断指定的目录不存在
        ftp1.MakeDir(path)                \'在ftp上创建目录
    End If
Next
--  作者：9EQ98
--  发布时间：2022/11/11 3:28:00
--  

DIM FPTH AS STRING = "A\\B\\C\\D"

Dim paths = fpth.split("\\")

Dim path As String = "\\"

For i As Integer = 1 To paths.length-1    
    path &= "\\" & paths(i)    
    If ftp1.DirExists(path) = False Then  \'判断指定的目录不存在
        ftp1.MakeDir(path)                \'在ftp上创建目录
    End If
Next


用这个代码一层一层创建也失败呀？？？？
--  作者：有点蓝
--  发布时间：2022/11/11 8:29:00
--  
For i As Integer = 0 To paths.length-1