只能创建一个时间文件夹,创建不了其他时间文件夹。比如同级创建多个按照时间排序的文件夹。
下面的代码肯定是有问题的,请帮忙看看。
ftp.ChangeDir("/待用户现场确认版本_产线禁止使用/2015") '进入到待用户现场确认版本_产线禁止使用\2015目录
Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型") & ")"
MessageBox.show(lj)
If ftp.DirExists(lj) = False Then
ftp.MakeDir(lj)
ftp.ChangeDir(lj)
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(ml)
'End If
ftp.ChangeDir(ml)
Else
ftp.ChangeDir(lj)
Dim sj As String = lj & "/" & Format(Date.now, "yyyy-MM-dd HH-mm-ss")
ftp.MakeDir(sj)
ftp.ChangeDir(sj)
End If