Foxtable(狐表)用户栏目专家坐堂 → 在FTP服务器里建立路径失败


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

主题:在FTP服务器里建立路径失败

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


加好友 发短信
等级:小狐 帖子:372 积分:3134 威望:0 精华:0 注册:2018/2/27 17:32:00
在FTP服务器里建立路径失败  发帖心情 Post By:2024/2/28 8:33:00 [只看该作者]

   如下代码是往FTP服务器里写入路径的,但是有时候能成功,有时却是没有建立任何路径也没有报错,是什么原因?本来我是直接执行“ ftpm.MakeDir ("" & lg & "") ”一次建立的,也是有时可以,大部分时候不可以
    Dim rq As String = "2025"
    Dim cb As String = "f55"
    Dim gd As String = "f85"
    Dim lb As String = "j622f"
    Dim lga As String = "" & "\" & "资料图片\" & "" & rq & "" & "\" & ""
    Dim lgb As String = "" & "\" & "资料图片\" & "" & rq & "" & "\" & "" & cb & "" & "\" & ""
    Dim lgc As String = "" & "\" & "资料图片\" & "" & rq & "" & "\" & "" & cb & "" & "\" & "" & gd & "" & "\" & ""
    Dim lg As String = "" & "\" & "资料图片\" & "" & rq & "" & "\" & "" & cb & "" & "\" & "" & gd & "" & "\" & "" & lb & "" & "\" & ""
    If ftpm.DirExists ("" & lga & "") = False Then
        ftpm.MakeDir ("" & lga & "")
        If ftpm.DirExists ("" & lgb & "") = False Then
            ftpm.MakeDir ("" & lgb & "")
            If ftpm.DirExists ("" & lgc & "") = False Then
                ftpm.MakeDir ("" & lgc & "")
                If ftpm.DirExists ("" & lg & "") = False Then
                    ftpm.MakeDir ("" & lg & "") 
                End If
            End If
        End If
    End If

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


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

借用Q群里【潭】回复的用法

Dim lg As String = "\" & "资料图片\" & rq & "\" & cb & "\" & gd & "\" & lb
Dim lgjoin As String = ""
For Each l As String In lg.Split("\")
    lgjoin = lgjoin & "\" & l 
    If ftpm.DirExists (lgjoin) = False Then
        ftpm.MakeDir (lgjoin) 
    End If
Next 

1楼的问题在于,如果lga已经存在,就不会再执行if里面的代码了

 回到顶部