VBA 類似dir的功能

請教諸位先進

Set oFolder = oFSO.GetFolder("D:\file\") 可顯示file目錄內所有的檔案
但若只要出現附檔名為*.xlsm之檔案，請問要如何改? 謝謝

樓主熱帖

millerch

中學生 Rank: 2

帖子: 10
主題: 11
精華: 0
積分: 52
點名: 0
作業系統: WINDOWS
軟體版本: 11
閱讀權限: 20
性別: 男
註冊時間: 2022-12-1
最後登錄: 2025-1-30

2^#

發表於 2023-1-4 10:10 | 顯示全部帖子

回復 2# Andy2483
謝謝前輩回覆
我VBA
' 建立目錄物件
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\")
我不知如何產生類似
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\*.xlsm的效果")

我程式如下
Sub FM()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i, j As Integer
RegexKill "D:\Dropbox\Swap\", "^[~]+.xlsm"
' 建立 FileSystemObject 物件
Set oFSO = CreateObject("Scripting.FileSystemObject")
' 建立目錄物件
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\")
i = 4
j = 3
' 以迴圈列出所有檔案
For Each oFile In oFolder.Files
If Left(oFile.name, 1) <> "~" Then
Cells(i, j) = oFile.name             ' 檔案名稱
j = j + 1
'Cells(i, j) = oFile.Path             ' 檔案路徑
' j = j + 1
Cells(i, j) = oFile.Size             ' 檔案大小（位元組）
   j = j + 1
'Cells(i, j) = oFile.Type             ' 檔案類型
' j = j + 1
Cells(i, j) = oFile.DateCreated    ' 檔案建立時間
   j = j + 1
'Cells(i, j) = oFile.DateLastAccessed  ' 檔案上次存取時間
' j = j + 1
Cells(i, j) = oFile.DateLastAccessed  ' 檔案上次修改時間

i = i + 1
j = 3
End If

Next oFile
End Sub

TOP

millerch