|
Option Explicit
'フォルダ内のファイルリストを作成
Private Sub ExGetFileList(strPath As String, lRow As Long)
Dim tSfo As Object
Dim tGf As Object
Dim tFi As Object
Dim tSub As Object
Set tSfo = CreateObject("Scripting.FileSystemObject")
Set tGf = tSfo.GetFolder(strPath)
For Each tFi In tGf.Files
'ファイル名
Cells(lRow, 2) = tFi.Name
'パス内に含まれるファイルの拡張子を除いたものを取得
Cells(lRow, 3) = tSfo.GetBaseName(tFi.Path)
'ファイルの拡張子
Cells(lRow, 4) = tSfo.GetExtensionName(tFi.Path)
'フォルダ名
Cells(lRow, 5) = tFi.ParentFolder.Path
'ファイルサイズ KByte
Cells(lRow, 6) = Int(tFi.Size / 1024)
'作成された日付・時刻
Cells(lRow, 8) = tFi.DateCreated
'ファイルの最終更新された日付・時刻
Cells(lRow, 10) = tFi.DateLastModified
'ファイルの最終アクセスの日付・時刻
Cells(lRow, 9) = tFi.DateLastAccessed
lRow = lRow + 1
Next
For Each tSub In tGf.SubFolders
ExGetFileList tSub.Path, lRow
Next
End Sub
Private Sub CommandButton1_Click()
ExGetFileList "c:\dam1", 10
End Sub
|
|