現在、下記のコードでフォルダ内のデータベースを作成しています。
これに、『ファイルのサイズ』を加えたいのですが、何処に何を入れれば良いかがよくわかりません。
どなたか回答出来る方がいらっしゃれば、宜しくお願いします。
《現在使用しているコード》
Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("一覧").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub
No.2ベストアンサー
- 回答日時:
一例です。
名前の直後に挿入してみました。(若干、ソースを変更しました)
Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fil = FS.GetFolder(Target).Files
'見出しを付ける
With ThisWorkbook.Sheets(1)
.Range("B2") = "名前"
.Range("C2") = "サイズ"
.Range("D2") = "種別"
.Range("E2") = "最終更新日"
.Range("F2") = "説明"
.Range("B2:F2").Interior.Color = RGB(0, 0, 0)
.Range("B2:F2").Font.Color = RGB(255, 255, 255)
.Range("B2:F2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
.Cells(i, 2) = Fx.Name '名前
.Cells(i, 3).NumberFormatLocal = "#,##0"" KB"""
.Cells(i, 3) = Fx.Size 'サイズ
.Cells(i, 4) = Fx.Type '種別
.Cells(i, 5) = Fx.DateLastModified '最終更新日
i = i + 1
Next
End With
End Sub
No.1
- 回答日時:
ファイルのサイズはSizeのプロパティで取得できます。
以下のページを参考にしてご自分でコードを作成してください。
http://officetanaka.net/excel/vba/filesystemobje …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ftpのmgetコマンドの自分の格納...
-
ファイル名で / (スラッシュ...
-
拡張子.dどういう意味
-
7zを使うとフォルダの中身がす...
-
scpによるデータ転送後、ディレ...
-
FTPコマンドのCDについて
-
tarコマンドのエラーについて
-
/(スラッシュ)で区切ったフル...
-
2TBのUSBメモリを2000円ほどで...
-
proxy(squid)経由でfedoraのD...
-
Minecraftにforgeを入れたら、...
-
「ドット(.)」と「¥」の意味...
-
Linuxコマンドについて
-
バッチファルの置き場所
-
DVDでAUDIO_TSが無い!?
-
logwatchからメールが来ない
-
unzipコマンドでディレクトリな...
-
IISでのFTPサーバの構築について
-
linuxコマンド mkdirでディレ...
-
ftpでのフォルダごとの転送はで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7zを使うとフォルダの中身がす...
-
拡張子.dどういう意味
-
ftpのmgetコマンドの自分の格納...
-
make時に出てきたエラーメッセ...
-
/(スラッシュ)で区切ったフル...
-
ホームページのディレクトリを...
-
「照合パターンに合いません」...
-
linuxコマンド mkdirでディレ...
-
バッチファルの置き場所
-
scpによるデータ転送後、ディレ...
-
「ドット(.)」と「¥」の意味...
-
FTPコマンドのCDについて
-
"cp -a"と"cp -r"の違い
-
Linuxコマンドについて
-
tarコマンドのエラーについて
-
シンボリックリンクについて
-
unzipコマンドでディレクトリな...
-
ファイル名で / (スラッシュ...
-
macで、cdで移動できない
-
FTPでPUTできない原因は何?
おすすめ情報