Dim r As Row = Tables("生产管理_Table01").Current
Dim r1 As Row = Tables("生产管理_Table02").Current
Dim bm As String = Tables("生产管理_Table01").Current("工装模具编号")
msgbox("bm1=" & bm)
bm = bm.SubString(2, 2)
bm = "20" & bm
msgbox("bm2=" & bm)
msgbox(r.IsNull("任务单编号") AndAlso r.IsNull("工装模具编号"))
If r.IsNull("任务单编号") = False AndAlso r.IsNull("工装模具编号") = False AndAlso r1.IsNull("项目段号") = False Then
msgbox(1)
If FileSys.DirectoryExists("Y:\wjzl") Then
msgbox("Y:\wjzl")
msgbox("Y:\wjzl 文件夹已存在")
Else
FileSys.CreateDirectory("Y:\wjzl")
msgbox("Y:\wjzl 文件夹已创建")
End If
If FileSys.DirectoryExists("Y:\wjzl\" & bm) Then
msgbox("Y:\wjzl\" & bm)
msgbox("Y:\wjzl\" & bm & " 文件夹已存在")
Else
FileSys.CreateDirectory("Y:\wjzl\" & bm)
msgbox("Y:\wjzl\" & bm & " 文件夹已创建")
End If
If FileSys.DirectoryExists("Y:\wjzl\" & bm & "\" & r("工装模具编号")) Then
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号"))
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & " 文件夹已存在")
Else
FileSys.CreateDirectory("Y:\wjzl\" & bm & "\" & r("工装模具编号"))
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & " 文件夹已创建")
End If
If FileSys.DirectoryExists("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号")) Then
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号"))
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号") & " 文件夹已存在")
Else
FileSys.CreateDirectory("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号"))
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号") & " 文件夹已创建")
End If
If FileSys.DirectoryExists("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号") & "\" & r1("项目段号")) Then
msgbox("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号") & "\" & r1("项目段号")) 这条调试不出来
Else
FileSys.CreateDirectory("Y:\wjzl\" & bm & "\" & r("工装模具编号") & "\" & r("工装模具编号") & "-" & r("任务单编号") & "\" & r1("项目段号"))
End If
End If
加好友 
发短信
Post By：2024/1/31 18:43:00 [只看该作者]
