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

//......................获得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;
//.....................................分割线...................................