VBA学习笔记（4）--文件夹和文件遍历一层

说明（2017.3.22）：

1.

 '遍历指定文件夹里的文件
 '遍历指定文件夹，返回第一层文件（不含文件夹）
 Public Sub test1()
     Dim k%
     Dim filename$
     Dim path$
     path = ThisWorkbook.path
     ' 返回带指定扩展名的文件名。如果超过一个 *.* 文件存在，
     ' 函数将返回按条件第一个找到的文件名。
     ' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.* 文件
     filename = Dir(path & "\*.*")
 '    Range("a1:a10") = ""
     Do Until filename = ""
         k = k +
 '        Cells(k, 1) = filename
         Debug.Print (filename)
         filename = Dir
     Loop
     Debug.Print ("完成")
 End Sub
 '遍历指定文件夹，返回第一层文件夹
 Public Sub test2()
      Dim k%, path$, filename$
      path = ThisWorkbook.path & "\2\"
 '     dir第二个参数vbDirectory
      filename = Dir(path, vbDirectory)
      Do Until filename = ""
         If Not filename Like "*.*" Then
 '            k = k + 1
 '            Cells(k, 1) = filename
             Debug.Print (filename)
         End If
         filename = Dir
     Loop
 End Sub