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