查找文件或文件夹

admin

1. Option Explicit
   ( B' L7 X7 m! @' ]2 f
2. Sub mydir()
   
3.     Dim mydir As String
   
4.     Dim b As Byte
   ! d6 y; ]( O* X2 {0 T. w% H
5.     b = 2                    '因为有表头，所以从第2行开始
   : Z. ~/ r% p. D
6.     Range("A:A").ClearContents          '清空A列数据，也可以写成 A2:A100
   
7.     mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal)    '列出ABC文件夹下所有文件
   & h- i: e' A$ a, a
8.     Do While mydir <> ""
   5 r9 J2 s/ ~# E! `6 S+ o
9.         Cells(b, 1) = mydir
   
10.         'Debug.Print mydir
    4 G( l( B( Y; \: ]" Z: \
11.         mydir = Dir
    ) h$ v0 k$ U) i+ O3 ]; P
12.         b = b + 1
    
13.     Loop
    
14. End Sub

复制代码