如題~
Private Sub Command1_Click()
Call Dir32D("c:\downloads")
End Sub
Public Sub Dir32D(strPath As String)
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
Dim MyName As String
MyName = Dir(strPath, vbDirectory) ' 找尋第一個子目錄
Do While MyName <> "" ' 執行迴圈
' 跳過目前的目錄及上層目錄
If MyName <> "." And MyName <> ".." Then
' 使用位元比對來確定 MyName 代表一目錄
If (GetAttr(strPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 將目錄名稱顯示出來
Call Dir32D(MyName) '遞廻呼叫
End If
End If
MyName = Dir ' 尋找下一個目錄
Loop
End Sub
Private Sub Command1_Click()
Call Dir32D("c:\downloads")
End Sub
Public Sub Dir32D(strPath As String)
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
Dim MyName As String
MyName = Dir(strPath, vbDirectory) ' 找尋第一個子目錄
Do While MyName <> "" ' 執行迴圈
' 跳過目前的目錄及上層目錄
If MyName <> "." And MyName <> ".." Then
' 使用位元比對來確定 MyName 代表一目錄
If (GetAttr(strPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 將目錄名稱顯示出來
Call Dir32D(MyName) '遞廻呼叫
End If
End If
MyName = Dir ' 尋找下一個目錄
Loop
End Sub
全站熱搜
留言列表