VBS Windowsでファイル一覧を取得する

Windowsでファイルの一覧を取得したい場合のスクリプト
カレントディレクトリのリストを読み取り、テキストファイルに保存します。

ファイル一覧取得.vbs

'ファイル一覧を取得して、テキストに保存します。

Option Explicit
 
Dim objFileSys
Dim objFolder
Dim objFile
Dim objOutputTextStream
Dim fso

'カレントディレクトリ取得
Set fso= createObject("Scripting.FileSystemObject")

'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
 
'ログ出力用 TextStream オブジェクトを作成
'第2引数は 1 ：読み取り、2 ：上書き、3 ：追記。
Set objOutputTextStream = objFileSys.OpenTextFile("ファイル一覧.txt", 2, True)

'フォルダのオブジェクトを取得
Set objFolder = objFileSys.GetFolder(fso.getParentFolderName(WScript.ScriptFullName))

'FolderオブジェクトのFilesプロパティからFileオブジェクトを取得
For Each objFile In objFolder.Files
    'ファイル名を取得し、ログファイルに出力
    objOutputTextStream.WriteLine objFile.Name
Next
 
'TextStream は Close を忘れずに
objOutputTextStream.Close

Set objOutputTextStream = Nothing
Set objFolder  = Nothing
Set objFileSys = Nothing