如何判断文件是否存在(100分)

我写了一个update程序，用来更新客户端的几个程序，问题是各个客户端的程序是不一样的，我想用一个update做，
如果客户端有同名程序就将它delete，再从server端copy一个新的，如果没有
就跳过，
if fileage('server//ch12/a.exe')>fileage('e:/ch12/a.exe') then
BEGIN
// F.wnd:=HANDLE;
f.wfunc:=fo_delete;
F.pfrom:='e:/ch12/a.exe';
if shfileoperation(f)<>0 then showmessage('delete失败');
F.wFunc:=FO_copy;
F.pFrom :='server//ch12/a.exe';
f.pTo:='e:/ch12';
f.fFlags:=fof_allowundo or fof_renameoncollision if shfileoperation(f)<>0 then showmessage('拷贝失败');
END;
如何判断客户端程序是否存在呢？

if fileexists('xxx.exe') then //文件存在

FileExists tests if FileName exists.

Unit

SysUtils

Category

file management routines

function FileExists(const FileName: string): Boolean;

Description

The FileExists function returns True if the file specified by FileName exists. If the file does not exist, FileExists returns False.

if FileExists(FileName) then

if MsgBox('Do you really want to delete ' + ExtractFileName(FileName)
+ '?'), []) = IDYes then DeleteFile(FileName);

接受答案了.

不好意思，Liu JZX,您来晚了一步。

顺便问一句: 你的程序里F是个什么东西?

呵呵, 当然是var f:SHFILEOPSTRUCT了

是地，是地，cytown老师说的对。
少cut一句
var
f:tshfileopstruct;