' フォルダのパスを指定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) '…