获取指定文件夹的文件路径

最新推荐文章于 2022-04-20 21:50:43 发布

原创最新推荐文章于 2022-04-20 21:50:43 发布 · 618 阅读

CC 4.0 BY-SA版权

//......................获得txt，EXCel文件夹路径函数............................
Function FileRouting(exeRouting:string):string;
var
LeadFileRouting,middleVar: string;
middleVar_L: integer;
begin
middleVar := exeRouting;
middleVar_L := length(exeRouting)-26;
middleVar := Copy(middleVar, 0, middleVar_L );
LeadFileRouting := middleVar+'注：只存放导入文件(暂支持.txt,.xls后缀)\';
result:= LeadFileRouting;
end;
//.....................................分割线...................................