Foxtable(狐表) → 用户栏目 → 专家坐堂 → 创建目录问题 多级目录创建


  共有3150人关注过本帖树形打印复制链接

主题：创建目录问题 多级目录创建
美女呀，离线，留言给我吧！
qianqian1530
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		创建目录问题 多级目录创建  发帖心情 Post By：2015/3/10 22:23:00 [只看该作者]

 比方说

要判断 ProjectPath & "da\as\s\" 文件是否存在, 要是不存在的话, 就自动创建.

但是, 要判断的话,很麻烦,  三个文件夹,都要做判断, 有没有办法 一次搞定呢?


*多级目录创建
[此贴子已经被作者于2015/3/10 22:29:57编辑过]
 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：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("完成")



有没有更简单的办法呢??
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/10 23:10:00 [只看该作者]

呃，直接弄不行？

 

Dim Tel As String = "a\b\c\d\e"

FileSys.CreateDirectory(ProjectPath & tel)
 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2015/3/10 23:44:00 [只看该作者]

图片点击可在新窗口打开查看  原来不用逐级添加啊.... 不早说 嘿嘿嘿

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询