ぼくのデジタルライフ

ただのガジェット好きがダラダラ書いていくブログ

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 "フォルダ内のファイル一覧情報の出力が完了しました。", , "終了"

実行してみる

f:id:computer-life:20150427204840p:plain

任意のフォルダに移動し、作成したファイルを実行。こんな感じになってて、同じフォルダの中にout.logってファイルが出来ていたらOK。