Foxtable(狐表)用户栏目专家坐堂 → 为什么FTP远程创建文件夹出错


  共有3683人关注过本帖树形打印复制链接

主题:为什么FTP远程创建文件夹出错

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
为什么FTP远程创建文件夹出错  发帖心情 Post By:2018/11/16 2:15:00 [只看该作者]

为什么只能创建到"\公司图集规范\" & 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:4290 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By: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


用这个代码一层一层创建也失败呀????


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105475 积分:536366 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/11 8:29:00 [只看该作者]

For i As Integer = 0 To paths.length-1   

 回到顶部