如題~

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
arrow
arrow
    全站熱搜

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