趣味プログラミングblog

「Dir フォルダパス」を入力すると、指定したフォルダの中身を一覧で表示できる。

今回の条件
サブフォルダを含めるので、オプションの/Sを追加。
ファイルのみを対象とするので、オプションの/A-D（フォルダじゃない）を追加。
結果をテキストファイルに書き込みたいので、 > で出力先ファイルパスを指定。

xxフォルダをCドライブ直下に置いた場合、
Dir /S /A-D "C:\" > "C:\xxファイル一覧\Dirリスト.txt"

Cドライブの中から「仕様書」だけ探したい場合、
Dir /S /A-D "C:\*仕様書*" > "C:\xxファイル一覧\Dirリスト（仕様書）.txt"


キーワードの絞り込み機能は実装しているものの、
エクセルで表示できる件数なら別に使う必要はないのよね。

---

VBSの処理としては、
InputBoxでテキストを取得して変数に格納。

dir_cmd.vbsファイルのフルパスを取得して、
上の階層のフォルダのパスと出力先ファイル名のパスを変数に格納。

変数の値を組み合わせて、上記のコマンドを変数に格納。

格納したコマンドをクリップボードにコピーするモジュールに渡して完了。


以下、ソース。ソースコードファイルは こちら。

---

'文字列を取得
Dim iText: iText = inputbox("絞り込みキーワードがあれば入力してください")

Dim fso: set fso = createObject("Scripting.FileSystemObject")
Dim txtPath : txtPath = fso.getParentFolderName(WScript.ScriptFullName) 'ここのフォルダパス
Dim yPos : yPos = InStrRev(txtPath, "\")
Dim tarPath : tarPath = Left(txtPath, yPos ) '対象フォルダパス
Dim txtFulName: txtFulName = txtPath & "\" & "Dirリスト.txt"

if iText <> "" then 'デフォは上記だけど、別指定したら変更する
tarPath = tarPath & "*" & iText & "*"
txtFulName = txtPath & "\" & "Dirリスト（"& iText &"）.txt"
end if

Dim sCmd : sCmd = "Dir /S /A-D """ & tarPath & """ > """ & txtFulName & """ " &chr(10)

With CreateObject("WScript.Shell").Exec("clip")
Call .StdIn.Write(sCmd)
End With

msgbox "クリップボードに出力しました。" & chr(10) & chr(10) & "<出力コマンド>" & chr(10) & sCmd