CDir (MT5) - classe para obter a tabela de conteúdo do diretório - biblioteca para MetaTrader 5

Às vezes é necessário ir além da "área restrita" e ler a tabela de conteúdo, verificar se há um arquivo ou diretório no sistema de arquivos. Além disso, pode ser preciso encontrar atributos do arquivo ou diretório, tamanho, tempo de criação, último acesso ou entrada. Um exemplo de uma possível solução para estes problemas é representado por este código:

Um prólogo padrão e uma descrição das variáveis, bem como um link para o código-fonte da classe incluída #include <WIN_API\Dir_API.mqh> são uma indicação clara para o compilador procurar esse arquivo no diretório \MQL5\Include\WIN_API. Você é livre para mudar este link, dependendo de suas preferências na organização do trabalho com arquivos incluídos em conformidade com a documentação.

//+------------------------------------------------------------------+
//|                                            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";
//---    
  

Como podemos ver, a variável de cadeia path contém o caminho para a pasta localizada dois níveis acima do diretório padrão do terminal executando, e nós obtemos (se a opção não é usada /portable) o caminho para o diretório que contém os dados personalizados de todos os terminais de cliente do usuário.

O leitor atento dirá que fazemos movimentos extra, uma vez que basta subir bastante um nível para estar no diretório correto. Sim, mas, se o que se pretende é navegar para outro diretório, por exemplo: Crashes ou Tester? Para nosso exemplo, é instrutivo.

Voltamos para o código do exemplo.

/---    
   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(); 
//---    

Criando uma instância da classe, obtemos na variável total o número de itens (arquivos ou subdiretórios). Após organizar o ciclo, imprimimos uma lista de diretórios dos terminais (ignorando os diretórios gerais). Ilustramos o acesso aos dados da instância usando o acesso à cópia de uma classe funcional de dados de classe 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();  

No exemplo de impressão de parte do conteúdo do diretório (é usada a seleção de itens que começam com a letra M) são demonstrados outras técnicas para trabalhar com os itens da classe.

E na continuação, parte do código onde nós verificamos a disponibilidade de um arquivo específico e sabemos seu comprimento.

//---  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();              

Completamos o script de teste usando o exemplo de utilização do link para a instância da classe de armazenamento do elemento de conteúdo do diretório:

  //--- 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. -----------------------");
}
//+------------------------------------------------------------------+

Eu não tenho nenhuma dúvida de que a maioria dos leitores tiraram proveito desta forma de acesso aos dados de classe no seu trabalho.

Para descriptografar atributos, podem ser exigidas informações adicionais:

Espero que este exemplo e a própria classe sejam úteis para você, eu, por minha vez, não estou muito cansado com minhas explicações ...;)

Divirtam-se!