[說明]
透過程式碼，取得指定路徑下的資料夾名稱，本範例是指定桌面上的「取得所有資料夾名稱」資料夾
.png)
取得指定資料夾內，所有資料夾名稱，本範例預計擷取五個資料夾名稱
.png)
將程式碼寫入該按鈕內，按下執行後，將會把該資料夾內所有的資料夾名稱，依序填入Excel的儲存格內，以下就來分享程式碼
.png)
[程式碼]
Sub 圖片1_Click()
Dim GFN As Object '宣告 GFN 為物件
n = 2 '從第2列開始往下填入資料夾名稱，可依需求進行設定
Set GFN = CreateObject("Scripting.FileSystemObject") '設定 GFN 為Scripting.FileSystemObject物件
Set FN = GFN.getfolder("C:\Desktop\取得所有資料夾名稱") '請依實際取得的路徑位置進行設定
For Each FD In FN.subfolders '.subfolders是包含所有資料夾，所以使用Each迴圈不須設定迴圈次數
Cells(n, 1) = FD.Name '儲存格第N列第1欄，填入資料夾名稱
n = n + 1 '填入後N+1列
Next
Set FN = Nothing
Set GFN = Nothing
End Sub
[特別說明]
Object=物件(名詞)
CreateObject=函數會傳回 FileSystemObject (GFN)。
Scripting.FileSystemObject= 可讓您存取電腦的檔案系統。
getfolder=傳回 folder 物件，該物件對應至指定路徑中的資料夾。
subfolders=其中包含指定資料夾中包含的所有資料夾，包括具有隱藏和系統檔案屬性設定的資料夾
謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個讚，也幫忙分享給需要的朋友或其他平台，謝謝。
文章標籤
全站熱搜
留言列表
