$ref:=Select document("";"";"";Multiple files )  `ファイルを選択する
If (OK=1)
	$delimit:=Get 4D folder[[Length(Get 4D folder)]]  `フォルダの区切り文字を得る
	$mach:=Match regex("([^"+$delimit+"]*)$";Document;1;$pos_found;$length_found)  `正規表現式
	$file_name:=Substring(Document;$pos_found;$length_found)  `ファイル名の取り出し
	ALERT("File name: "+$file_name)
End if