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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBSで動画ファイルの時間を読み取る方法
Visual Basic(VBA)
-
フォルダに動画の再生時間の列を表示させたい
Windows Vista・XP
-
VBAのユーザーフォームに動画を貼り付けて再生させたり停止させたりしたいのですが…
Visual Basic(VBA)
-
-
4
mp4ファイルの「メディアの作成日時」を取得するツール、方法を知っている方教えてください。
Android(アンドロイド)
-
5
VB6でのファイルサイズ取得について
Visual Basic(VBA)
-
6
エクスプローラの詳細表示の長さが表示されなくなりました
Windows Vista・XP
-
7
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
8
Shell関数で起動したメディアプレーヤーを終了したい。
Visual Basic(VBA)
-
9
WMPの再生リストをエクセル等に書き出したい
Windows Vista・XP
-
10
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
11
VB6 配列を初期化したい
Visual Basic(VBA)
-
12
Excel-VBA 撮影日時の取得
Visual Basic(VBA)
-
13
VBAで図形同士をコネクタで繋いでいく方法
Visual Basic(VBA)
-
14
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
15
UserForm
Visual Basic(VBA)
-
16
Excel VBA 実行中に一瞬フリーズします。たとえ 一瞬" でも困る事情があります。"
Visual Basic(VBA)
-
17
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
18
ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
スマホでtxtファイルを編集する...
-
e-taxで送信ファイルの拡張子が...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
2枚、マイクロSDカードを入...
-
リストビューの選択状態を取得...
-
ビデオファイルのプロパティの...
-
Unknown Flash type
-
カメラのフラッシュは大丈夫?
-
拡張子「.IDJ」を、windo...
-
A4の紙に印刷されている文字を...
-
SDカードを挿してるのに挿入し...
-
マイクロSD 初期化?
-
PC内で速度を遅くした音源をCD...
-
指定したフォルダーを開いてフ...
-
フラッシュの設置について
-
速読の才能と世界最速の速読術...
-
修学旅行のためにGoProを購入し...
-
MacでオフィスのWord Excelを使う
-
自分が作ったHPじゃないHP...
-
Fortniteのクラッシュについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
e-taxで送信ファイルの拡張子が...
-
個別に違う添付ファイルを付け...
-
スマホでtxtファイルを編集する...
-
エクセルで「特定の文字を含む...
-
A4の紙に印刷されている文字を...
-
Fortniteのクラッシュについて
-
ビデオファイルのプロパティの...
-
iPhoneの内蔵の記憶媒体は、HDD...
-
ガラケーからPCへの写真の取り込み
-
情けない話ですが成田エクスプ...
-
PC内で速度を遅くした音源をCD...
-
TextBoxにフォーカスを与えると...
-
2枚、マイクロSDカードを入...
-
エアコンの冷媒 R410Aの重...
-
リストビューの選択状態を取得...
-
RSSフィードと無断転載について
-
拡張子「.IDJ」を、windo...
-
VBA:カウンターの i の値が開放...
-
ファイル数と合計サイズの取得方法
-
複数のブックを新しいブックのS...
おすすめ情報