VB 获取文件夹的名字？
答案:2 悬赏:80 手机版
解决时间 2021-03-22 05:30
- 提问者网友：了了无期
- 2021-03-21 20:35
谢谢
最佳答案
- 五星知识达人网友：酒醒三更
- 2021-03-21 21:18
Private Sub Command1_Click()
Dim i As String
Dim pathstr As String
pathstr = "d:\" '父目录
i = Dir(pathstr, vbDirectory) '取第一个
Do While i <> "" '不为空就循环
If i <> "." And i <> ".." Then '如果不是 当前目录及上一级目录 . 及 ..
If (GetAttr(pathstr & i) And vbDirectory) = vbDirectory Then '是否是目录
List1.AddItem i '确定是目录,添加到列表,这里可以自己处理
End If
End If
i = Dir '取下一个
Loop
End Sub
Dim i As String
Dim pathstr As String
pathstr = "d:\" '父目录
i = Dir(pathstr, vbDirectory) '取第一个
Do While i <> "" '不为空就循环
If i <> "." And i <> ".." Then '如果不是 当前目录及上一级目录 . 及 ..
If (GetAttr(pathstr & i) And vbDirectory) = vbDirectory Then '是否是目录
List1.AddItem i '确定是目录,添加到列表,这里可以自己处理
End If
End If
i = Dir '取下一个
Loop
End Sub
全部回答
- 1楼网友：往事隔山水
- 2021-03-21 21:24
工程－引用-microsoft scripting runtime后；
private sub form_load()
dim fso1 as new filesystemobject
dim folder1 as folder
set folder1 = fso1.getfolder("c:\")
msgbox folder1.size & "bytes"
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯