No.1ベストアンサー
- 回答日時:
VBスクリプトサンプルです。
以下のプログラムをVBSファイルとして保存してください。
(※※※※全角スペースは半角スペース2個と置換してください※※※※)
そのファイルにエクスプローラなどから、フォルダをドラッグしてみてください。
プログラム先頭で切った出力先に、ログとして残ります。
Option Explicit
'-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Const LIST_FILE = "C:\FileList.txt" '←ログ出力先
'-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
'-----------------------------------------------
Dim objArgs
Dim fsoObj
Dim objText
'オブジェクト生成
Set objArgs = WScript.Arguments
Set fsoObj = CreateObject("Scripting.FileSystemObject")
'ログファイルがあったら抹消
If fsoObj.FileExists(LIST_FILE) Then
Call fsoObj.DeleteFile(LIST_FILE)
End If
'ログファイル準備
Set objText = fsoObj.OpenTextFile(LIST_FILE, 8, True, 0)
'メイン実行
Call MainProc(objArgs)
'ログファイルクローズ
objText.Close
'オブジェクト開放
Set objText = Nothing
Set fsoObj = Nothing
Set objArgs = Nothing
'-----------------------------------------------
'-----------------------------------------------
'メイン実行部
'-----------------------------------------------
Sub MainProc(arg)
Dim objParam
'パラメータループ
For Each ObjParam in arg
'フォルダであるかをチェック
If fsoObj.FolderExists(objParam) Then
'リスト作成メイン実行
Call CreateFileList(objParam)
End If
Next
End Sub
'-----------------------------------------------
'リスト作成メイン
'-----------------------------------------------
Sub CreateFileList(inFolderName)
Dim fsoFolder
Dim fsoSubFolder
Dim fsoFile
'フォルダオブジェクト取得
Set fsoFolder = fsoObj.GetFolder(inFolderName)
'フォルダ内/ファイルループ
For Each fsoFile In fsoFolder.Files
'ログに出力
objText.WriteLine fsoFile.Path
Next
'フォルダ内/サブフォルダループ(サブフォルダが不要なら、このループは不要)
For Each fsoSubFolder In fsoFolder.SubFolders
'サブフォルダで再帰
Call CreateFileList(fsoSubFolder)
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(開発・運用・管理) コマンドプロンプトまたはpower shellなどを用いてのフォルダ内のファイル一括リネーム方法をご 4 2022/10/24 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- UNIX・Linux Ubuntu でinvalid filenameとなるファイルをコピーする方法 3 2023/06/08 22:26
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/10/26 17:14
- Excel(エクセル) 1つのファイルを複数のフォルダにファイル名を【明日の日付】にして、コピーしたい 5 2022/12/13 20:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【vbs】ファイル名の検索と該当ファイルの削除について
その他(プログラミング・Web制作)
-
VBS パスに変数を入れたい
その他(プログラミング・Web制作)
-
フォントの大きさ
Visual Basic(VBA)
-
-
4
vbsのFolderExistsで部分一致をさせたい
その他(プログラミング・Web制作)
-
5
【VBS】 フォルダ直下のファイル名を配列に取り込む方法
Visual Basic(VBA)
-
6
VBScriptでファイルの日時順(降順)で並び替えて一覧を出力したい。
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA フォルダ名に特定の文字を...
-
VBA 最新のフォルダ取得
-
サーバ内のフォルダ名と各フォ...
-
VBA フォルダの複数選択ができない
-
ファイル名と同名のフォルダを...
-
pythonでDepixを起動
-
Excel VBAで新たな保存先のパス...
-
C ファイル出力で、フォルダが...
-
ディレクトリ名変更してコピー...
-
【VBS】古い日付のフォルダを削...
-
期間を指定したフォルダの削除...
-
【マクロ】ファイル名の日付に...
-
カレントフォルダって?
-
ThisWorkbookがあるフォルダ更...
-
excel VBA Dirにて検索したフォ...
-
エクセル VBA Filename:=Left(T...
-
フォルダの場所を可変にしたい...
-
会社のネットワーク上のファイ...
-
VBAで、ファイルを移動する方法...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報