主题：[求助]创建的目录有时候正确有时候不正确。

/待用户现场确认版本_产线禁止使用/2015/03127_2015(Techroutes_S2528C)/2015-04-01 18-02-14

单独测试你的代码是没有问题的。

这是我的代码。提示创建一级，二级目录成功，实际上server上并未创建成功。现在发现有2个肯定是创建不成功的（客户为Microlink-svyaz和Techroutes），其它抽测试了一下好像都能创建成功。搞不懂啥原因了。是否和创建二级目录（时间相关导致的。）

If vars("路径") = "" Then

    

    

    

    ftp.ChangeDir("/待用户现场确认版本_产线禁止使用/2015")   '进入到待用户现场确认版本_产线禁止使用\2015目录

    Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型") & ")"

    

    If ftp.DirExists(lj) = False Then   '不存在临时版本编号目录时先创建临时版本编号目录

        ftp.MakeDir(lj)

        Messagebox.Show("创建一级目录成功!")

    End If

    Dim ml As String = lj  & "/" & Format(Date.now, "yyyy-MM-dd HH-mm-ss")

    If ftp.DirExists(ml) = False Then  '按照系统时间来创建时间目录

        ftp.MakeDir(ml)

        Messagebox.Show("创建二级目录成功!")

    End If

    Tables("临时版本跟踪表").current("发布目录") = ml

    vars("zhygwjj") = ml

    

    

    ftp.Close

Else

    vars("zhygwjj") = Tables("临时版本跟踪表").current("发布目录")

    

    Functions.Execute("listview")

End If

此主题相关图片如下：一级.png


此主题相关图片如下：二级.png


此主题相关图片如下：实际显示.png

实际的目录是没有右边的），也没有ml的子目录。