文件管理类函数(2)
摘要：//查找一个文件 FileSearch var FileName,Dir,s: string; begin FileName := 'notepad.exe'; Dir := 'c:\windows'; s := FileSearch(FileName,Dir); if s'' then ShowMessage(s) //c:\windows\notepad.ex...
阅读全文
posted @
2007-12-12 17:22
万一
阅读(5993)
推荐(1) 编辑
文件管理类函数(1)
摘要：//判断文件是否存在 FileExists var f: string; begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end; end; //判断文件夹是否存在 DirectoryExists var dir: string; begin dir := '...
阅读全文
posted @
2007-12-12 13:05
万一
阅读(8158)
推荐(3) 编辑
管理
