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 & "/" & Date.now
If ftp.DirExists(ml) = False Then
ftp.MakeDir(ml)
MessageBox.show(ml)
End If
ftp.ChangeDir(ml)
End If
子目录下再创建一个时间排序的文件夹,比如2015_03_10 17:23:20.如何把上面的date.now 让它按照这种格式显示并创建文件夹。