论坛风格切换切换到宽版
  • 2094阅读
  • 2回复

INN0如何将列出文件名并写入到文本? [复制链接]

上一主题 下一主题
离线xelloss0618
 

发帖
5
金钱
50
威望
5
只看楼主 倒序阅读 0 发表于: 2014-08-05

我想在安装完之后搜索一个文件夹内的所有文件,然后把这些文件名写入到一个文本文件里。
该如何做?
离线zhfi

发帖
461
金钱
190
威望
19
只看该作者 1 发表于: 2014-08-06
FindFirst
FindNext
结果加入到TFileList然后SaveToFile存为txt
人生若只如初见@@一轩果

MyMPC 2013(104210239)
离线xelloss0618

发帖
5
金钱
50
威望
5
只看该作者 2 发表于: 2014-08-06
果然用这两个函数啊,看了示例,总算改出来了

  1. var
  2. FindRec: TFindRec;
  3. begin
  4.   // 先清空目标文本文件
  5.   SaveStringToFile(ExpandConstant('{app}\test.txt'), '', False);
  6.   if FindFirst(ExpandConstant('{app}\blotmap\*.bmp'), FindRec) then
  7.     begin
  8.       try
  9.         repeat
  10.           if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
  11.             SaveStringToFile(ExpandConstant('{app}\test.txt'), FindRec.Name + #13#10, True);
  12.         until not FindNext(FindRec);
  13.       finally
  14.         FindClose(FindRec);
  15.       end;
  16.     end;
  17. end;