7.1.4 For...End For

機能
指定したフォルダ内のすべてのファイルに対して,一連のステートメントを繰り返すフロー制御ステートメントです。
形式

For  VarName = Filemask  Do
 〔Statements
 〔Exit For
 〔Statements
EndFor

指定項目
VarName
ファイル名を格納する変数名を指定します。変数の名前付け規則に従って名前を付けます。配列変数や配列変数の一要素は指定できません。
Filemask
検索対象のファイル名をフルパスで指定します。ファイル名にはワイルドカードを含めることもできます。フルパス名は,ダブルクォーテーションで囲んでください。
Statements
ループ内で実行される一連のステートメントを指定します。ForとEnd Forの間にこれらのステートメントを記述します。ここに記述したステートメントは,For...End Forで指定したパスに該当するファイルが見付からなくなるまで繰り返されます。
Statementsには複数の文を記述できます。複数の文を記述する場合は,文ごとに改行します。
説明
指定したフォルダ内のすべてのファイルに対して,一連のステートメントを繰り返します。指定したパスに該当するファイルが見付からなくなった時, End Forステートメントの次のステートメントに制御が移ります。
Exit Forステートメントは,制御構造For...End ForとFor...Nextループ内だけで使用できます。Exit Forステートメントを使用すると,直ちにFor...End Forループを終了させることができます。Exit Forステートメントは,For...End Forループ内の任意の位置で何回でも指定できます。
For...End Forループはネスト(入れ子)構造にすることができます。つまり,For...End Forループの内部に別のFor...End Forループを入れることができます。ループをネスト(入れ子)させる場合は,それぞれのVarNameに別の変数名を指定してください。
Filemaskに "*.*"を指定した場合,VarNameには ".",".." 以外のファイル名が格納されます。
補足
  • For…End Forループのファイルの検索は,システムが互換性のために保存しているMS-DOSファイル形式に変換した短いファイル名も対象になります。
  • For…End Forループのファイル検索順序は保証していません。

' 実行フォルダ下のスクリプトファイルを別フォルダにバックアップする。
Dim  path1 ,bkupDir
bkupDir = _BIN_+"BKUP¥"
MakeDir ( bkupDir )

' スクリプトファイルを検索
For  path1 = _BIN_+"*.SPT"  Do
 ' フォルダは無視
 If  IsExistDir ( _BIN_+path1 ) = False  Then
   ' 別フォルダにバックアップ
   Copy ( _BIN_+path1 ,bkupDir+path1 )
 End If
End For

対象バージョン
JP1/Script 01-00以降