Initial commit: MQL5 Scripts Collection (MetaTrader 5)

2025-06-24 00:33:04 +01:00
commit 60a549d89c
1959 changed files with 31907 additions and 0 deletions
@@ -0,0 +1,41 @@
+//+------------------------------------------------------------------+
+//|                                           Demo_FileFindFirst.mq5 |
+//|                        Copyright 2013, MetaQuotes Software Corp. |
+//|                                              http://www.mql5.com |
+//+------------------------------------------------------------------+
+#property copyright "Copyright 2013, MetaQuotes Software Corp."
+#property link      "http://www.mql5.com"
+#property version   "1.00"
+//--- display the window of input parameters when launching the script
+#property script_show_inputs
+//--- filter
+input string InpFilter="*";
+//+------------------------------------------------------------------+
+//| Script program start function                                    |
+//+------------------------------------------------------------------+
+void OnStart()
+  {
+   string file_name;
+   int    i=1;
+//--- receive search handle in local folder's root
+   long search_handle=FileFindFirst(InpFilter,file_name);
+//--- check if FileFindFirst() function executed successfully
+   if(search_handle!=INVALID_HANDLE)
+     {
+      //--- check if the passed strings are file or directory names in the loop
+      do
+        {
+         ResetLastError();
+         //--- if this is a file, the function will return true, if it is a directory, the function will generate error 5018
+         FileIsExist(file_name);
+         PrintFormat("%d : %s name = %s",i,GetLastError()==5018 ? "Directory" : "File",file_name);
+         i++;
+        }
+      while(FileFindNext(search_handle,file_name));
+      //--- close search handle
+      FileFindClose(search_handle);
+     }
+   else
+      Print("Files not found!");
+  }
+//+------------------------------------------------------------------+