VOLUME ATTRIBUTES

 // Find volume for space プロジェクトメソッド
 // Find volume for space ( 実数 ) -> 文字列
 // Find volume for space ( 必要なサイズ ) -> ボリューム名または空の文字列

 #DECLARE($space : Real) -> $result : Text
 var $vsDocName : Text
 var $vlNbVolumes;$vlVolume : Integer
 var $vlSize;$vlUsed;$vlFree : Real
 var $vhDocRef : Time

 //戻り値を初期化する
 $result:=""
 //エラー阻止メソッドを使用して、すべてのI/O処理を保護する
 ON ERR CALL("ERROR METHOD")
 //ボリュームのリストを取得する
 ARRAY STRING(31;$asVolumes;0)
 gError:=0
 VOLUME LIST($asVolumes)
 If(gError=0)
 //Windowsで実行している場合、(通常の) 2つのフロッピーディスクドライブは省略する
  If(On Windows)
    $vlVolume:=Find in array($asVolumes;"A:\\")
    If($vlVolume>0)
     DELETE FROM ARRAY($asVolumes;$vlVolume)
    End if
    $vlVolume:=Find in array($asVolumes;"B:\\")
    If($vlVolume>0)
     DELETE FROM ARRAY($asVolumes;$vlVolume)
    End if
  End if
  $vlNbVolumes:=Size of array($asVolumes)
 //それぞれのボリュームに対して
  For($vlVolume;1;$vlNbVolumes)
 //サイズ、使用サイズ、空きサイズを取得する
    gError:=0
    VOLUME ATTRIBUTES($asVolumes{$vlVolume};$vlSize;$vlUsed;$vlFree)
    If(gError=0)
 //空きサイズは十分にありますか(必要なサイズに32KBを加えたサイズ) ?
     If($vlFree>=($space+32768))
 //もし十分であれば、ボリュームがアンロックされているかどうかをチェック...
       $vsDocName:=$asVolumes{$vlVolume}+Char(Directory symbol)+"XYZ"+String(Random)+".TXT"
       $vhDocRef:=Create document($vsDocName)
       If(OK=1)
        CLOSE DOCUMENT($vhDocRef)
        DELETE DOCUMENT($vsDocName)
 //すべて問題がなければ、ボリュームの名前を返す
        $result:=$asVolumes{$vlVolume}
        $vlVolume:=$vlNbVolumes+1
       End if
     End if
    End if
  End for
 End if
 ON ERR CALL("")

 $vsVolume:=Find volume for space(100*1024*1024)
 If($vsVolume#"")
 // Continue
 Else
  ALERT("A volume with at least 100 MB of free space is required!")
 End if