フォルダ名が不定ならこんな感じとか?
	// 検索対象パス
	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
	
	// --------------------------------------------------------