フォルダ名が不定ならこんな感じとか?
// 検索対象パス
searchPath = "data\\"
// --------------------------------------------------------
// dirlist でカレントディレクトリを変更するので転記しておく
tmpCd = dir_cur + "\\"
// カレントディレクトリ変更
chdir searchPath
// ディレクトリ一覧取得
dirlist dir_list, "*", 5
dir_num = stat
// picloadで読み込む為のscreenの開始ID
screenId = 1
// 取得した一覧をなめる
notesel dir_list
repeat dir_num
noteget dir_name, cnt
// ファイルパス
file_path = dir_name + "\\pic.bmp"
gsel 0, 0
mes file_path
// ファイル存在確認
// (存在する場合はpicloadで読み込み)
exist file_path
if strsize > 0 {
screen screenId
picload file_path
screenId++
}
loop
// カレントディレクトリを元に戻す
chdir tmpCd
// --------------------------------------------------------