' フォルダのパスを指定
folderPath = "Z:\Work"
' 出力ファイルの保存場所とファイル名を指定
’desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
outputFolderPath = "C:\Custom\Path"
outputFileName = "output.txt"
' ファイル一覧を取得
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(folderPath)
Set colFiles = objFolder.Files
' 出力ファイルのパスを作成
outputFilePath = objFSO.BuildPath(outputFolderPath, outputFileName)
' 出力ファイルを開く
Set objOutputFile = objFSO.CreateTextFile(outputFilePath, True)
' ファイル名(拡張子なし)を出力ファイルに書き込む
For Each objFile In colFiles
objOutputFile.WriteLine objFSO.GetBaseName(objFile.Name)
Next
' ファイルを閉じる
objOutputFile.Close
WScript.Echo "ファイル名が " & outputFilePath & " に出力されました。"