For VarName = Filemask Do
〔Statements〕
〔Exit For〕
〔Statements〕
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