For  VarName = Filemask  Do
  〔Statements〕
  〔Exit For〕
  〔Statements〕
End〔For〕

VarName

ファイル名を格納する変数名を指定します。変数の名前付け規則に従って名前を付けます。配列変数や配列変数の一要素は指定できません。

Filemask

検索対象のファイル名をフルパスで指定します。ファイル名にはワイルドカードを含めることもできます。フルパス名は，ダブルクォーテーションで囲んでください。

Statements

ループ内で実行される一連のステートメントを指定します。ForとEnd Forの間にこれらのステートメントを記述します。ここに記述したステートメントは，For...End Forで指定したパスに該当するファイルが見付からなくなるまで繰り返されます。

Statementsには複数の文を記述できます。複数の文を記述する場合は，文ごとに改行します。

• 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