VB Dir目录

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:31:32
vb中如何用dir显示当前目录的文件和文件夹，如果要求带属性的，例如要求显示隐藏的，将结果输出，并判断那些是文件，哪些是文件夹。

'在窗体上加入控件list1,command1，然后复制下面代码，运行即可

Private Sub Command1_Click()
Dim sDir As String, Fn As String
With List1
.Clear
.AddItem "下面是文件"
sDir = "c:\"

Fn = Dir(sDir & "*.*") '如果要显示隐藏属性,则Fn = Dir(sDir & "*.*", vbHidden),其他同理
Do While Fn <> ""
.AddItem Fn
Fn = Dir
DoEvents
Loop
.AddItem "下面是目录"
Fn = Dir(sDir & "*.*", vbDirectory)
Do While Fn <> ""
If GetAttr(sDir & Fn) And vbDirectory Then
.AddItem Fn
End If
Fn = Dir
DoEvents
Loop
End With
End Sub

Dir(sDir & "*.*", 31)

这样所有文件都能显示出来!