エクセルVBA よりフォルダ内にあるファイルのサイズ表示

Question

現在、エクセルにてVBAでプログラムを書いております。
指定のフォルダ内に入ってあるファイルのサイズをすべて表示するプログラムが分かりません。
Dir関数を使って、フォルダ内にあるファイルはすべて表示出来ているのですが、それにプラスしてサイズの表示がうまくいきません。
いろいろ調べて、「FileLen」がファイルサイズを表示してくれると分かったのですが、ファイルを指定してくださいといわれてしまい、１つしかサイズ表示出来ません。

説明下手で申し訳ありませんが、
分かる方いらっしゃいましたらお願いします。

Answer 1

FileLen 関数

Public Function FileLen(ByVal PathName As String) As Long

パラメータ
PathName
必ず指定します。ファイル名を指定する文字列 (String) 式です。PathName にはディレクトリ名またはフォルダ名、およびドライブ名も含めて指定できます。

メッセージから想像するに引数に値をセットしてなかったのでは？

たとえば

Dim path = "C:\temp\"
Dim buf as String
buf = Dir(path + "*.*")

Dim fileName As String

Do While Len(buf) > 0
  fileName = path + buf
  MsgBox buf + ":" + CStr(FileLen(fileName))
Loop

などとすれば取得できますね。

Comments

[退会済みユーザー]

回答していただきありがとうございました。

Answer 2

やり方は色々あると思いますが、Dir関数を使っているとのことでその一例。

Dim fname As String
Dim path As String
Dim flen As Long
    
path = "c:\temp\"
fname = Dir(path & "\*.*")
    
Do While fname <> ""
    flen = FileLen(path & fname)
    Debug.Print fname & "," & CStr(flen)
    fname = Dir()
Loop

Comments

[退会済みユーザー]

無事に表示することが出来ました。
お早い回答に感謝いたします。