| >#ファイルサイズ( )関数で、ドライブが存在するか否か判定できますよ。
失礼しました。#DISKSIZE( )関数を使うほうが良いですね。
【引用】桐9-200xヘルプ｜関数 クイック リファレンス｜ファイル｜#DISKSIZE( str )
■#DISKSIZE( str )
ドライブ str の全ディスク容量をバイト単位の数値で返します。
str の先頭 1 文字をドライブ名として使用します。
ディスクの準備ができていないか、指定するドライブが存在しないときは -1 になります。
>一括処理での記載はどのようにしたら良いのでしょうか。
以下の例は、あくまでも例です。
そちらの用途に合っているかは保証できませんので、あらかじめご了承ください。
なお、やっつけで例を作ったので、私のイベント処理アプリケーションから流用しました。
一括処理アプリケーションでも考え方は同じですよ。
********************************************
名札 メイン
変数宣言 局所，文字列｛ &mFDDriveName ｝
&mFDDriveName = "A:"
＊
手続き定義開始 cmdほげほげＦＤ作成Click( )
変数宣言 自動，文字列｛ &icon, &title = "cmdほげほげＦＤ作成Click( )", &msg ｝
変数宣言 自動，整数 ｛ &ans, &continue ｝
&msg = "ほげほげＦＤを作成します"
&msg = &msg + "\n\nほげほげへ提出するフロッピーディスクを " + &mFDDriveName + " に装着してください"
&msg = &msg + "\n\nよろしいですか？"
手続き実行 INFprcMsgYesNo( &icon, &title, &msg, &ans )
if ( &ans )
手続き実行 prcExistDrive( &mFDDriveName, &continue )
if ( &continue )
手続き実行 ほけほげ( )
end
end
手続き定義終了
手続き定義開始 prcExistDrive( 文字列 &driveName, 参照 整数 &done )
変数宣言 自動，文字列｛ &icon = "!", &title = "prcExistDrive( )", &msg ｝
変数宣言 自動，数値 ｛ &diskSize ｝
変数宣言 自動，整数 ｛ &continue = 1 ｝
&done = 0
繰り返し ( &continue )
&diskSize = #disksize( &driveName )
if ( &diskSize = -1 )
&msg = &driveName + ": ドライブにフロッピーが装着されていません"
&msg = &msg + "\n\nドライブのＬＥＤが消えてから、フロッピーディスクを装着してください"
&msg = &msg + "\n\n[OK]ボタンで再試行します [ｷｬﾝｾﾙ]ボタンで中止します"
手続き実行 INFprcMsgOKCancel( &icon, &title, &msg, &continue )
else
&continue = 0
&done = 1
end
繰り返し終了
手続き定義終了
手続き定義開始 INFprcMsgOKCancel( 文字列 &icon, 文字列 &title, 文字列 &msg, 参照 整数 &ans )
変数宣言 自動，文字列｛ &iconList = "i,?,!,e" ｝ /* 半角コンマで区切った文字列リスト */
変数宣言 自動，文字列｛ ¯o ｝
変数宣言 自動，整数 ｛ &at ｝
&icon = #半角( #lc( #sstr( &icon, 1, 1 ) ) ) /* &icon はこの手続きの引数 */
&at = #対応番号( &iconList, &icon )
¯o = "メッセージボックス &title, &msg" + #cond( &at, ", アイコン = " + &icon ) + ", ﾎﾞﾀﾝ指定 = 2, 制御文字展開 = する, &ans"
コマンド ¯o
**if ( &ans = 2 ) /* &ans はこの手続きの参照引数 */
条件 ( &ans = 2 ) &ans = 0 /* &ans が キャンセル( 2 )だったらゼロ( 0 )にする */
**end
手続き定義終了
手続き定義開始 INFprcMsgPause( 文字列 &icon, 文字列 &title, 文字列 &msg )
変数宣言 自動，文字列｛ &iconList = "i,?,!,e" ｝ /* 半角コンマで区切った文字列リスト */
変数宣言 自動，文字列｛ ¯o ｝
変数宣言 自動，整数 ｛ &at ｝
&icon = #半角( #lc( #sstr( &icon, 1, 1 ) ) ) /* &icon はこの手続きの引数 */
&at = #対応番号( &iconList, &icon )
¯o = "メッセージボックス &title, &msg" + #cond( &at, ", アイコン = " + &icon ) + ", ﾎﾞﾀﾝ指定 = 1, 制御文字展開 = する"
コマンド ¯o
手続き定義終了
********************************************
|
