ExcelVBA之获取D盘文件列表

过程GetFiles获取D盘根目录下的所有文件名并且将每个文件名写入工作表：

Sub GetFiles()
Dim nfile As String
Dim nextRow As Integer
nextRow = 1
'next row index
With Worksheets("Sheet1").Range("A1")
nfile = Dir("D:\", vbNormal)
.Value = nfile
Do While nfile <> ""
nfile = Dir
.Offset(nextRow, 0).Value = nfile
nextRow = nextRow + 1
Loop
End With
End Sub

运行之后会在Excel sheet1 中A1开始显示文件名称 。

在立即窗口的测试结果：

mfile = Dir("D:\", vbHidden)
?mfile

结果:
network_driver.zip
mfile = Dir
?mfile
结果:

~$Solid State Drive (SSD) Interface.pptm

文件的属性列表显示：

 

总结：根据相应的文件类型，可以查询相应的文件名称。