むだい

ファイル一覧読み込み:
# インクルイズムに書かれていたものの改変です

Open ファイル.txt fot 出力 as F
Local i = 0
Local FolderPath FileList newFolder newFile

# 基点フォルダを指定
FolderPath[0] = ScenarioPath

# 指定フォルダ内を検索
Do While (FolderPath[i] != "")
# フォルダがあったら追加する
newFolder = Dir(FolderPath[i] & "*", "フォルダ")
Do While (newFolder != "")
FolderPath[Count(FolderPath)] = FolderPath[i] & newFolder & "\"
newFolder = Dir()
Loop

# ファイルを検索
newFile = Dir(FolderPath[i] & "*.*", "ファイル")
Do While (newFile != "")
FileList[Count(FileList)] = FolderPath[i] & newFile
newFile = Dir()
Print F newFile

Loop

Incr i
Loop
Close F

Return

シナリオフォルダの全てのファイルをテキストに出力します
恐らく全て出力されていると思います