打开文件问题，请各位帮忙(急)！

Question

数据库中保存某一文件(0.TXT)的路径如下：C:\Documents and Settings\Administrator\桌面\0.TXT
　请问各位高手，如何先判断改文件存在，若存在就直接打开它啊？
请各位指点！

Answer 1

var
  FName:string;
  ff:TextFile;
begin
  FName:='C:\Documents and Settings\Administrator\桌面\0.TXT';
  try
    AssignFile(ff,FName);
    if not fileexists(FName) then
      Rewrite(ff)
    else
      Reset(ff);
    append(ff);
  ...  //your code
  finally
    closefile(ff);
  end;
end;

Answer 2

if FileExists('C:\Documents and Settings\Administrator\桌面\0.TXT') then
ShellExecuteEx(pchar('C:\Documents and Settings\Administrator\桌面\0.TXT'),0);

Answer 3

try    if not fileexists(FName) then
      Rewrite(ff,'a.txt')
    else
      begin
          AssignFile(ff,FName);
          Reset(ff);
      end;
    append(ff);
  ...  //your code
  finally
    closefile(ff);
  end;
end;

Answer 4

if FileExists('e:\0.TXT') then  showmessage('a');
ShellExecute(handle,'open','e:\0.TXT','-s','',SW_SHOWNORMAL);刚才搞错了。应该是这样的，我调试过垃，在桌面不行

Answer 5

TO: lianshaohua(永远深爱一个叫“然”的好女孩儿!) _____________________________________________________在判断以前初始化有什么不对吗??