蜗牛在前进

VB 编程中经常需要和文件系统打交道，比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前，完成这些功能需要调用 Windows API 函数或者使用一些比较复杂的过程来实现，使编程复杂、可靠性差又容易出错。使用 Windows 提供的的文件系统对象，一切变得简单多了。

还是因为要做个VBA工具，才去查找着东西的，确实很不错。
下面这个程序我也测试过了，完全没问题。放心使用。

Private Sub CommandButton2_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(“E:\test”)
Set fc = f.SubFolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub