主题：求用VB写一个建立文件夹代码
andylaws58
[专家分：0] 发布于 2011-04-25 22:28:00
求用VB写一个建立文件夹代码，先谢了
回复列表 （共6个回复）
沙发
andylaws58 [专家分：0] 发布于 2011-04-26 12:06:00
怎么高手都不在啊
板凳
yanzhong124 [专家分：10] 发布于 2011-04-28 15:37:00
http://www.lqbdqn.com/
3 楼
yanzhong124 [专家分：10] 发布于 2011-04-28 15:38:00
http://www.secneo.com/
4 楼
一江秋水 [专家分：9680] 发布于 2011-04-28 20:27:00
Private Sub Command1_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder ("D:\Test") '创建文件夹
Set fs = Nothing
End Sub
5 楼
孙瑞 [专家分：590] 发布于 2011-04-30 16:55:00
对一江秋水老师的代码解析
Private Sub Command1_Click() '函数名
Dim fs '定义一个对象【这里的fs不是普通的变量】
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象，并将fs初始化为其实例
fs.CreateFolder ("D:\Test") '创建文件夹，这引号中D:\Test可以换成任何合法路径或变量【无引号】
Set fs = Nothing '释放变量
End Sub '过程结束
修改：
Private Sub Command1_Click()
Dim fs
Dim mypath As String
mypath=InputBox("请输入文件夹路径：")
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder (mypath) '创建文件夹
Set fs = Nothing
End Sub
6 楼
wanghujun [专家分：10] 发布于 2011-05-05 20:13:00
http://www.cmd59.com/htm/0Z91262010.html 很有创意的的建立文件夹的方法
而且可以建立很多 建议你看看
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 求用VB写一个建立文件夹代码