文件大小

ulong  FileSize(

   int  file_handle    // 文件句柄

   );

//--- 启动脚本时显示输入参数的窗口

#property script_show_inputs

//--- 输入参数

input ulong  InpThresholdSize=20;        // 千字节的文件门槛大小

input string InpBigFolderName="big";     // 大型文件的文件夹

input string InpSmallFolderName="small"; // 小型文件的文件夹

//+------------------------------------------------------------------+

//| 脚本程序启动函数                                                   |

//+------------------------------------------------------------------+

void OnStart()

  {

   string   file_name;      // 存储文件名称的变量

   string   filter="*.csv"; // 搜索文件的过滤器

   ulong    file_size=0;    // 文件的字节大小

   int      size=0;         // 文件数

//--- 打印我们将要使用的文件路径

   PrintFormat("Working in %s\\Files\\ folder",TerminalInfoString(TERMINAL_COMMONDATA_PATH));

//--- 接收所有程序端普通文件夹根目录下的搜索程序

   long search_handle=FileFindFirst(filter,file_name,FILE_COMMON);

//--- 检查FileFindFirst()是否成功执行

   if(search_handle!=INVALID_HANDLE)

     {

      //--- 根据大小循环移动文件

      do

        {

         //--- 打开文件

         ResetLastError();

         int file_handle=FileOpen(file_name,FILE_READ|FILE_CSV|FILE_COMMON);

         if(file_handle!=INVALID_HANDLE)

           {

            //--- 接收文件大小

            file_size=FileSize(file_handle);

            //--- 关闭文件

            FileClose(file_handle);

           }

         else

           {

            PrintFormat("Failed to open %s file, Error code = %d",file_name,GetLastError());

            continue;

           }

         //--- 打印文件大小

         PrintFormat("Size of %s file is equal to %d bytes",file_name,file_size);

         //--- 定义移动文件的路径

         string path;

         if(file_size>InpThresholdSize*1024)

            path=InpBigFolderName+"//"+file_name;

         else

            path=InpSmallFolderName+"//"+file_name;

         //--- 移动文件

         ResetLastError();

         if(FileMove(file_name,FILE_COMMON,path,FILE_REWRITE|FILE_COMMON))

            PrintFormat("%s file is moved",file_name);

         else

            PrintFormat("Error, code = %d",GetLastError());

        }

      while(FileFindNext(search_handle,file_name));

      //--- 关闭搜索程序

      FileFindClose(search_handle);

     }

   else

      Print("Files not found!");

  }