Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型") & ")"
If ftp.DirExists(lj) = False Then '不存在临时版本编号目录时先创建临时版本编号目录
ftp.MakeDir(lj)
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)
End If
为什么创建的lj目录有些情况右边的)没有呢?有些又有呢?
比如没有的03127_2015(Techroutes_S2528C----少了一个右边的)
比如有的04004_2015(气象局_2605)----正确的。
[此贴子已经被作者于2015/4/1 17:56:17编辑过]