フォルダ内の印刷

質問

初歩的な質問ですみません
音楽ファイルを一つのフォルダにまとめたのですが
曲名やアーティスト名をプリントアウトの方法がわかりません。
また、エクセルシートにもタイトル名などを編集しコピーできるでしょうか？

回答No.3

oldroot2005

No.2 の補足・訂正です。

(1) 項目の「見出し」の取得方法が分かったので、そのためのコードを追加します。
(2) 項目の区切りをコンマにしましたが、ファイルサイズの桁区切りにコンマが使われているため、各項目を "" で括る必要がありました。

分かりにくいですが、コードの変更箇所のみを記載します。

-----
set objFolder = objShell.BrowseForFolder(0, "List Music Files", 0)
Detail objFolder, 0 '追加
dim objFolderItem
-----
Sub Detail(oFolder, oItem)
dim j, str
str = """" & oFolder.GetDetailsOf(oItem, 0) & """" '修正
for j = 1 to 40
str = str & ",""" & oFolder.GetDetailsOf(oItem, j) & """" '修正
next
-----

回答No.2

oldroot2005

以下の内容を拡張子 .vbs のファイルに保存し、コマンドプロンプトで、cscript ファイル名.vbs > list.txt と入力すると一覧が作れます。どの項目が何の情報なのか出力する方法も調査したのですが、そちらは分かりませんでした。適当に推測してください。

option explicit
dim objShell
set objShell = CreateObject("Shell.Application")

dim objFolder
set objFolder = objShell.BrowseForFolder(0, "List Music Files", 0)

dim objFolderItem
dim objFolderItems
set objFolderItems = objFolder.Items()
dim i
for i = 0 to objFolderItems.Count - 1
set objFolderItem = objFolderItems.Item(i)
Detail objFolder, objFolderItem
set objFolderItem = nothing
next
set objFolderItems = nothing
set objFolder = nothing
set objShell = nothing

Sub Detail(oFolder, oItem)
dim j, str
str = oFolder.GetDetailsOf(oItem, 0)
for j = 1 to 40
str = str & "," & oFolder.GetDetailsOf(oItem, j)
next
WScript.Echo str
end sub

回答No.1

violet430

アルバムタイトルやアーチスト名がファイル名になっているなら、DIRコマンドでテキストファイルへ出力できます。それをエクセルへ取り込めばいいのです。
テキストファイルへの出力方法は、マイコンピュータで音楽ファイルのあるドライブを右クリックして、コマンドプロンプトをクリックします。
コマンドプロンプトが表示されますので、例えば
DIR > NAME.TXT
と入力してENTERキーを押せば、音楽ファイルのあるフォルダに、NAME.TXTという名前でファイル一覧が出力されます。
コマンドプロンプトは、ウィンドウの右上にある閉じるボタンを使って閉じて下さい。