ファイル 指定フォルダ内の全てのファイルサイズ取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル 指定フォルダ内の全てのファイルサイズ取得]
Option Explicit


Sub フォルダファイルサイズ取得(対象フォルダパス)
'******************************************
'指定フォルダ内の全てのファイルサイズ取得
'******************************************

Dim FileName As String

    'フォルダの存在確認
    If Dir(対象フォルダパス, vbDirectory) = "" Then
        MsgBox "指定移動元フォルダは存在しません。", vbExclamation, "ERROR!"
        Exit Sub
    End If

    '先頭ファイル名取得
    FileName = Dir(対象フォルダパス & "\*.*", vbNormal)
    '繰返処理
    Do While FileName <> ""
    MsgBox FileName & " - " & FileLen(対象フォルダパス & "\" & FileName), 0, "ファイルのサイズ"
    FileName = Dir()
    Loop


End Sub


Private Sub test()
フォルダファイルサイズ取得 ThisWorkbook.Path & "\test"
End Sub






Production Japan Import Application. Since 1998