a="Console HSP Test" mes "["+a+"]" sdim a,512 sdim b,512 mes "ファイルを開いて下さい。" dialog "*",16:if stat=0 : end a=refstr getpath b,a,0 mes "すべて取り出す。" mes b getpath b,a,1 mes "拡張子を除いた部分を取り出す。" mes b getpath b,a,2 mes "拡張子を取り出す。" mes b getpath b,a,8 mes "ファイル名のみ取り出す。" mes b getpath b,a,16 mes "文字列の小文字変換を有効にする。" mes b getpath b,a,32 mes "ディレクトリ名を取り出す。" mes b stop