CDir (MT5) - класс для получения оглавления каталога - библиотека для MetaTrader 5

Иногда возникает необходимость выйти за пределы "песочницы" и прочитать оглавление, проверить наличие файла или каталога в файловой системе. Также может потребоваться узнать атрибуты файла или директории, размер файла, время его создания, последнего доступа к нему или записи. Пример возможного решения таких задач представлен этим кодом:

Стандартный пролог и описание переменных, а также ссылка на исходный код включаемого класса #include <WIN_API\Dir_API.mqh> - явное указание компилятору, что ему следует искать этот файл в директории \MQL5\Include\WIN_API. Вы вольны изменить эту ссылку в зависимости от ваших предпочтений в организации работы с включаемыми файлами руководствуясь документацией.

//+------------------------------------------------------------------+
//|                                            ExampleDirClass.mq4/5 |
//|                                        Copyright © 2017, Avatara |
//|                            https://www.mql5.com/en/users/avatara |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2017, Avatara"            2017/02/12
#property link      "https://www.mql5.com/en/users/avatara"
#property description "-- Example Dir Class --------------"
#property strict
#include <WIN_API\Dir_API.mqh> 
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   File_Def File;            // work structure
   CDir Dir; int total,i;     
   string path = TerminalInfoString(TERMINAL_COMMONDATA_PATH)+
               "\\..\\..\\Terminal";
//---    
  

Как мы видим, строковая переменная path содержит путь к папке, находящейся на два уровня выше стандартного расположения каталога запущенного терминала, и мы (в случае если не использовалась опция /portable) получим путь к каталогу, содержащего пользовательские данные всех клиентских терминалов этого пользователя.

Вдумчивый читатель скажет, что мы делаем лишние телодвижения - достаточно подняться на один уровень и мы будем в нужном каталоге. Да, но а если мы захотим осуществить навигацию к другому каталогу - например: Crashes или Tester? Для нашего примера, это поучительней.

Вернемся к коду примера.

/---    
   total = Dir.Create(path);       // init dir
   Print (path," Total=",total-3); //Common,Help && Community not calc
    for (i = 0;i<total;i++)
    {
     string nameFile = Dir.GetNameFile(i);
     if(nameFile == "Common"||nameFile=="Help"||nameFile=="Community")
                                                              continue;
     File = Dir.GetStruct(i);
     Print (StringFormat ("%37s \t%8X\t  %5s\t",nameFile,
     File.FileAttributes,File.isDir?"-SubDir-":""),
     File.isDir?"            ":IntegerToString(File.FileLength,12),
     File.CreationTime,"     ",File.LastWriteTime,"     ",
     File.LastAccessTime);
    }
    Dir.Clear(); 
//---    

Создав экземпляр класса, мы получим в переменной total количество элементов (файлов или поддиректорий). Организовав цикл, напечатаем список каталогов терминалов (пропуская общие директории). Доступ к данным экземпляра мы иллюстрируем доступом к копии рабочей структуры данных класса File.

  path=TerminalInfoString(TERMINAL_PATH)+
              "\\..";
    Dir.Create(path,"\\M*");   // use filter "M*"       
    Print ("Alternative access:");
    total = Dir.Size(); 
    Print (Dir.Path," Total=",total);
    for (i = 0;i<total;i++)
    {
    Print  (StringFormat("%57s \t%8X \t %s \t",Dir.GetNameFile(i), 
                         Dir.GetStruct(i).FileAttributes,
                         Dir.isDir(i)?"--- SubDir ---": 
                         IntegerToString(Dir.GetFileLength(i),14)),
    "\t   Last modify: ",Dir.GetLastWriteTime(i));
    }
//---    
    Dir.Clear();  

На примере распечатки части оглавления директории (используется селекции элементов, содержащих в начале названия букву M) демонстрируются другие методы работы с элементами класса.

И в продолжение, часть кода, где мы проверяем наличие конкретного файла и узнаем его длину.

//---  Use to check the file
    path="C:";
    Print("------------ Use to check the file ---------------------");
    stringfilter="\\pagefile.sys";
    Dir.Create(path,filter);
    total=Dir.Size();
    PrintFormat("Find %d entry.",total);
    if(total>0)
      for(i =0;i<total;i++)Print("File search \"",path,filter,
        "\" is return:",Dir.isDir(i)?"--- SubDir ---  "+
        Dir.GetNameFile(i):Dir.GetNameFile(i)+
        IntegerToString(Dir.GetFileLength(i),14)+" byte. \t",
        StringFormat("Atributes=%X",Dir.GetAtributes(i)));
    else  Print("File ",path,filter," is absent.");
//---
    Dir.Clear();              

Завершаем тестовый скрипт примером использования ссылки на экземпляр класса хранения элемента оглавления директории:

  //--- use pointer to access data
   path="C:\\Temp";
    //---------------------> pointer declarate
    CDir_API *e;
  
    Print("------ Pointer use example. --------");
    total =Dir.Create(path);
    PrintFormat("%s       Find %d entry.",path,total);
    if(total>0)
      for(i =0;i<total;i++)
      {
      e=Dir.GetPointers(i);
      Print(StringFormat("%77s \t%8X\t  %5s\t ",e.Name_File,
          e.FileDef.FileAttributes,e.FileDef.isDir?"-SubDir-":""),
          e.FileDef.isDir?"         ":
          IntegerToString(e.FileDef.FileLength,12),"   ",
          e.FileDef.CreationTime,"     ",
          e.FileDef.LastWriteTime,"     ",
          e.FileDef.LastAccessTime);
      }  
    else  Print("File ",path,filter," is absent.");
//---
    Dir.Clear();
    Print("------------- The end. -----------------------");
}
//+------------------------------------------------------------------+

Не сомневаюсь, что большинство читателей воспользуются именно этим способом доступа к данным класса в своей работе.

Для расшифровки атрибутов может потребоваться дополнительные сведения:

Надеюсь, что этот пример, как и сам класс будет вам полезен, а я не сильно утомил своими пояснениями... ;)

Наслаждайтесь!