如何尋找同一資料夾副檔名相同的檔案?

 

Dim FileName As String
Dim result(100) As String
Dim count As Integer

    FileName = Dir("C:\temp\*.txt", vbNormal)
    count = 0
    Do While FileName <> ""
     Debug.Print FileName
     result(count) = FileName
     FileName = Dir
     count = count + 1
    Loop
arrow
arrow
    全站熱搜

    JL8051 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄