获取目录所有文件和文件夹名

SKY定格

1. mypath = "C:\Program Files\Tencent\QQ\users\"
   
2. myname = Dir(mypath, vbDirectory)
   
3. Do While myname <> ""
   
4. DoEvents
   
5.     If myname <> "." And myname <> ".." Then
   
6.         ' 使用位比较来确定 MyName 代表一目录。
   
7.         If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
   
8.             Print myname    ' 如果它是一个目录，将其名称显示出来。
   
9.         End If
   
10.     End If
    
11.     myname = Dir
    
12.     Loop

复制代码