盒子论坛 v2.1

    使用 System.IOUtils 单元. 其定义了三个包含大多数类方法的记录: TDirectory, TPath, TFile.

        1. TDirectory:   用来浏览文件夹, 搜索其中的文件以及子文件夹,

        2. TFile:        检查文件的时间戳和文件属性,  也可以用来操纵文件, 包含写入
          文件和复制文件.

        3. TPath:        用来处理文件名称和文件夹名称的, 以及用于提取驱动器, 不包含
          路径的文件名, 扩展名等文件名的方法, 以及用于处理 UNC 路径.

   示例:

   uses   System.IOUtils

        procedure TFormIoFiles.btnPasFilesClick(Sender:TObject);
        var
          pathList, filesList: TStringDynArray;
          strPath, strFile: string;
        begin
          if TDirectory.Exists(edBaseFolder.Text) then
          begin
          // clean up
          ListBox1.Items.Clear;

          // search in the given folder
          filesList := TDirectory.GetFiles(edBaseFolder.Text, '*.pas');
          for strFile in filesList do
          sFilesList.Add(strFile);

          // search in all subfolders
          pathList := TDirectory.GetDirectories(edBaseFolder.Text, TSearchOption.soAllDirectories, nil);
          for strPath in pathList do
          begin
          filesList := TDirectory.GetFiles(strPath, '*.pas');
          for strFile in filesList do
          sFilesList.Add(strFile);
          end;

          // now copy the file names only (no path) to a listbox
          for strFile in sFilesList do
          ListBox1.Items.Add(TPath.GetFileName(strFile));
          end;
        end;
----------------------------------------------

美国国务卿蓬佩奥回答大学生提问时说，“我曾担任美国中央情报局（CIA）的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀

作者：

xuchuantao (暗黑天使)	★☆☆☆☆	-
	普通会员

2021/3/3 19:18:47

5楼：

用Ini文件记录程序的位置,或者静态写死程序路径.你这样效率感人呀!
----------------------------------------------

信息

登陆以后才能回复