- 帖子
- 10
- 主題
- 5
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- 11
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2022-12-1
- 最後登錄
- 2024-5-13
|
回復 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 |
|
發表於 2023-1-1 18:32
| 
