【VBScript】フォルダ内のファイル一覧を出力する
大量のファイルの管理にファイルの一覧が必要になったのでその時つくったソースを置いておきます。
スクリプトファイルが置いてあるフォルダのファイルの一覧してくれるものです。VBScriptで書きました。
file-log.vbs
Option Explicit
Dim FSO, FOLDER, LOG, FILE, SUBFOLDER
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set FOLDER = FSO.GetFolder(".")
Set LOG = FSO.OpenTextFile(FOLDER & "\out.log", 8, True)
LOG.WriteLine "#" & FOLDER.Path
FileList(FOLDER)
Sub FileList(FOLDER)
For Each FILE In FOLDER.Files
If FILE.Name <> "GetFileList.vbs" and FILE.Name <> "out.log" then
LOG.WriteLine vbTab & FILE.Name
End If
Next
For Each SUBFOLDER In FOLDER.SubFolders
LOG.WriteLine "#" & SUBFOLDER.Path
FileList(SUBFOLDER)
Next
End Sub
Set FSO = Nothing
Set FOLDER = Nothing
Set LOG = Nothing
MsgBox "フォルダ内のファイル一覧情報の出力が完了しました。", , "終了"