次のファイルを検索 FileFindNext 関数

// FileFindNext関数によるファイルとフォルダの検索
#property strict
void OnInit() {

   string filter = "*";                       // 検索フィルタ
   string file_name;                          // 検索ファイル名を受信
   long   handle;
   int    i=1, errorcode;

   Print("「", filter, "」で検索");

   handle = FileFindFirst(filter, file_name); // 指定フォルダ内を検索
    
   if(handle != INVALID_HANDLE) {
   
      do {
         ResetLastError();                    // エラーコードのリセット         
         FileIsExist(file_name);              // 見つかったファイル名で存在チェック
         errorcode = GetLastError();          // 指定した名前がフォルダの場合はエラーコード5019が返されます
         
         if(errorcode == 5019) {
            Print( i, "つ目：", file_name, "（フォルダ）");
         } else {
            Print( i, "つ目：", file_name, "（ファイル）");
         }
         i++;
         
      } while(FileFindNext(handle, file_name) == true);
      
      FileFindClose(handle);
   
   } else {
      Print("ファイル無し");
   }
}