以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新建文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190323)
--  作者：1234567
--  发布时间：2024/1/31 18:43:00
--  新建文件夹
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
--  作者：有点蓝
--  发布时间：2024/2/1 8:38:00
--  
说明这个目录已经存在