以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  filesys创建目录问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134974)

--  作者:sj67502588
--  发布时间:2019/5/14 13:11:00
--  filesys创建目录问题
FileSys.CreateDirectory这个方法能不能以集合的方式创建目录呢,比如创建以订单编号为目录名的目录呢?
--  作者:有点甜
--  发布时间:2019/5/14 14:12:00
--  

 

你要创建多个目录?循环每一个,然后创建,即可。

 

具体问题,请具体说明,并上传具体实例。

 

 


--  作者:sj67502588
--  发布时间:2019/5/15 19:11:00
--  
嗯,解决了,这么写的图片点击可在新窗口打开查看
Dim drs As List(Of String)
drs = DataTables("投保单管理").getvalues("中杆编号","[投保日期] = #" & Date.Today & "#")
For i As Integer = 0 To drs.count-1
FileSys.CreateDirectory("C:\\Users\\Administrator\\Desktop\\"& Date.today &"投保单\\" & drs(i))
Next