★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:102 OPTION指定
by うｗｓｃ 2009/05/30(Sat) 19:33:27
//　OPTION指定
Option SAMESTR, OPTPUBLIC　　　　// 大小文字を区別、ファイル間PUBLIC変数の重複禁止
Option LOGPATH= C:TEMPTEST.LOG　// ログ出力を変更



//　パラメータ引数（PARAM_STR）の表示
print Length(PARAM_STR)+"個のパラメータ引数があります"
for　i=0　to　Length(PARAM_STR)-1
　　print　PARAM_STR[i]
next

//　ファイル名表示
for　i=0　to　GETDIR("C: emp")-1
　　print　GETDIR_FILES[i]
next

//　*.datファイル名のみ表示
for　i=0　to　GETDIR("C: emp","*.dat")-1
　　print GETDIR_FILES[i]
next

//　D:ドライブのディレクトリ木表示
ディレクトリ("D:",　0)
procedure ディレクトリ(dd,　lve)
　　lve　=　lve　+　1
　　for　i=0　to　GETDIR(dd,"")-1
　　sps　=　""
　　for　s=2　to　lve;　　sps　=　sps　+　"　";　　next　　　
　　　　print　sps　+　GETDIR_FILES[i]
　　　　ディレクトリ(dd+""+GETDIR_FILES[i],　lve)
　　next
fend

// メモ帳に C:TempReadme.txt をドロップする
DROPFILE(GETID("メモ帳"), "C:Temp", "Readme.txt")