用 VBA 找 硬碟上 的檔案 (code)

Sub LoopThroughXLS()
    Dim sFName As String
    sFName = Dir(”*.xls”)
    Do While Len(sFName) > 0
        Debug.Print sFName
        sFName = Dir
    Loop
End Sub