有。
如果你用的是free pascal,那么你可以用
fsearch (dos)
语法 function fsearch(path:pathstr;dirlist:string):pathstr
说明 查找dirlist目录中的与path相匹配的文件。如果找到则以一个字符串返回结果,否则返回的函数 值为一空串 。
来源:http://hi.baidu.com/xingfupingguo/blog/item/7596ecb1d76d4851092302a8.html
如果你用的是Delphi,则用 FileExists()
函数声明:function FileExists(const FileName: string): Boolean;
来源:http://hi.baidu.com/delphidiary/blog/item/305dcc7bdd2b2be72e73b395.html