![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
この方法で
全てのプロパティが取得できそうです。
Sub ボタン1_Click()
Dim Shell, Folder
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.Namespace(Range("A1").Value)
Fil = Dir(Range("a1").Value & "\*.*")
Rows("5:65536").ClearComments
i = 5
Do While Fil <> ""
For j = 0 To 40
Cells(i, j + 1).Value = Folder.GetDetailsOf(Folder.ParseName(Fil), j)
Next
i = i + 1
Fil = Dir()
Loop
Set Folder = Nothing
Set Shell = Nothing
End Sub
不要な列は非表示にデモしてください。
列に何が表示されているかの項目がすべては調べきれませんでしたが
そちらのデータと比較して5行目に項目を入れてください。
この回答への補足
大変失礼いたしました。
A1セルに動画を保存しているパスを入力するのですね。
見事に私の欲しいプロパティの詳細をExcelのシートにとりだすことができました。
感謝いたします。本当にありがとうございました。
ありがとうございます。
教えていただいたマクロをコピーして実行しましたが、
「オブジェクト変数またはWithブロック変数が設定されていません」とのエラーが発生します。
Excelは2007です。マクロはよくわかりませんので、教えていただけたら幸いです。
No.1
- 回答日時:
VBAの力をかりますが
新しいBookを作成して
Sub ボタン1_Click()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", ThisWorkbook.Path)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets(1).Rows("3:65536").ClearContents
i = 3
For Each Fx In Fil
'ファイル名の書き出し
Cells(i, 2) = Fx.Name
'サイズの書き出し
Cells(i, 5) = Fx.Size
'ファイル種別
Cells(i, 3) = Fx.Type
'最終更新日
Cells(i, 4) = Fx.DateLastModified
i = i + 1
Next
End Sub
をVBAエディターにコピーして実行してみてください。
そのフォルダー内のプロパティの一覧が作成されますが
長さ と ビットレートの取得の仕方は知りません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 7 ショートカットキー 応用編 どういうの主に使いますか? 2 2022/12/28 23:46
- Visual Basic(VBA) ActiveReportのdetailをデータセットの自動バインドを使って帳票を出力しています。 1 2023/08/16 07:16
- IT・エンジニアリング ActiveReportのdetailをデータセットの自動バインドを使って帳票を出力しています。 1 2023/08/16 07:17
- その他(ソフトウェア) ダウンロードしたファイルの「種類」が「Windowsmediaplayer」に変わってしまい、開くこ 2 2023/07/03 21:45
- Windows 10 Windows10で、急に「IMEが無効です」となり日本語入力ができなくなりました。 6 2023/02/15 06:46
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Windows 8 カスペルスキー削除後の外付HDD不具合 3 2023/03/06 06:41
- C言語・C++・C# visual studio 2019 についての質問です 1 2022/09/21 09:58
- その他(ソフトウェア) Figma 1 2023/06/23 14:22
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBSで動画ファイルの時間を読み取る方法
Visual Basic(VBA)
-
フォルダに動画の再生時間の列を表示させたい
Windows Vista・XP
-
エクスプローラの詳細表示の長さが表示されなくなりました
Windows Vista・XP
-
-
4
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
5
Shell関数で起動したメディアプレーヤーを終了したい。
Visual Basic(VBA)
-
6
VB6 配列を初期化したい
Visual Basic(VBA)
-
7
ExcelVBAで画像のサイズを調べるマクロを作ろうと思っています
Access(アクセス)
-
8
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
-
9
Excel-VBA 撮影日時の取得
Visual Basic(VBA)
-
10
VBAでコマンドプロンプトの結果を変数に代入
Visual Basic(VBA)
-
11
VBAのユーザーフォームに動画を貼り付けて再生させたり停止させたりしたいのですが…
Visual Basic(VBA)
-
12
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
複数のブックを新しいブックのS...
-
e-taxで送信ファイルの拡張子が...
-
エクセルで「特定の文字を含む...
-
VBS フォルダ内にあるすべての...
-
Access2016のExcelインポートの...
-
クラリスインパクトに替わるソ...
-
ビデオファイルのプロパティの...
-
SDカードの中に入ってる小さい...
-
Unknown Flash type
-
stdio.hの中身
-
A4の紙に印刷されている文字を...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
ガラケーからPCへの写真の取り込み
-
アフターエフェクトに音をつけたい
-
PC内で速度を遅くした音源をCD...
-
アニメーションGIFファイルを読...
-
WEBデザイナーです、PCスペック...
-
MIXでケロケロかけたいのですが...
-
下記のようなFlashのタイポグラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
個別に違う添付ファイルを付け...
-
e-taxで送信ファイルの拡張子が...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
エクセルで「特定の文字を含む...
-
A4の紙に印刷されている文字を...
-
スマホでtxtファイルを編集する...
-
ビデオファイルのプロパティの...
-
ガラケーからPCへの写真の取り込み
-
2枚、マイクロSDカードを入...
-
拡張子「.IDJ」を、windo...
-
エアコンの冷媒 R410Aの重...
-
PC内で速度を遅くした音源をCD...
-
ファイル数と合計サイズの取得方法
-
stdio.hの中身
-
VBA:カウンターの i の値が開放...
-
GIMP separate+プラグイン クラ...
-
リストビューで選択行の背景を...
-
VBS フォルダ内にあるすべての...
-
カメラのフラッシュは大丈夫?
-
複数のブックを新しいブックのS...
おすすめ情報