- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 创建目录问题 多级目录创建 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65185)
-- 发布时间：2015/3/10 22:23:00
-- 创建目录问题 多级目录创建
比方说
要判断 ProjectPath & "da\\as\\s\\" 文件是否存在, 要是不存在的话, 就自动创建.
但是, 要判断的话,很麻烦, 三个文件夹,都要做判断, 有没有办法 一次搞定呢?
*多级目录创建
[此贴子已经被作者于2015/3/10 22:29:57编辑过]
-- 发布时间：2015/3/10 22:44:00
--
..我自己想到的办法,
Dim Tel As String = "a\\b\\c\\d\\e"
Dim de As String
Dim Parts() As String = Tel.Replace("\\","@").Split("@")
For Each s As String In Parts
de = de & s & "\\"
If FileSys.DirectoryExists(ProjectPath & de) = False Then \'
FileSys.CreateDirectory(ProjectPath & de)
End If
Next
Output.Show("完成")
有没有更简单的办法呢??
-- 发布时间：2015/3/10 23:10:00
--
呃，直接弄不行？
Dim Tel As String = "a\\b\\c\\d\\e"
FileSys.CreateDirectory(ProjectPath & tel)
-- 发布时间：2015/3/10 23:44:00
--
原来不用逐级添加啊.... 不早说 嘿嘿嘿