查找文件或文件夹

admin

1. Option Explicit
   ) a) v8 A6 _5 w
2. Sub mydir()
   
3.     Dim mydir As String
   
4.     Dim b As Byte
   ! M( x: A: B; X* ~, C: o1 R' Y
5.     b = 2                    '因为有表头，所以从第2行开始
   
6.     Range("A:A").ClearContents          '清空A列数据，也可以写成 A2:A100
   2 Y& o$ e9 Z+ C
7.     mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal)    '列出ABC文件夹下所有文件
   
8.     Do While mydir <> ""
   2 b: |3 K/ m0 q* J4 P/ O" s0 L
9.         Cells(b, 1) = mydir
   * H  f! J& }/ }% t- v9 L1 y
10.         'Debug.Print mydir
    
11.         mydir = Dir
    $ J8 }7 T" M! ?$ z5 c
12.         b = b + 1
    - p: C( y6 |: D2 ^# l' Y* w7 `0 K+ Y" I: ~
13.     Loop
    
14. End Sub

复制代码