サブフォルダも含めたフォルダ内のファイルリストを作成する : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサードリンク



ExcelシートのVBAコード

Option Explicit

'Excel VBAでフォルダ内のファイルリストを作成
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

スポンサードリンク





Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved