怎么判断路径名是否有效

Question

我想让用户在Edit中输入需要保存的文件名，那个函数可以判断路径有效

Answer 1

Extractfilepath(application.ExeName)这个函数可以得道你程序的相对路进，你可以这样判断if Edit1.text = Extractfilepath(application.ExeName) then  
   showMessage('OK')
else
  ....
//判断Edit中输入需要保存的文件名，路径有效,是否是程序所在的目录

Answer 2

判断文件夹是否存在用：DirectoryExists();
判断文件是否存在用：  FileExists();

Answer 3

从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：　　ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“\” 　　ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。　如:
procedure TForm1.Button1Click(Sender: TObject); 
　　begin 
　　ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp 
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 　　
　　end;　
-----------
以上是转贴一位大哥的
本人同意fyxi(羲子) 的做法

Answer 4

谢谢。
让用户随便输入，不只程序目录
不是很喜欢savedialog,千篇一律该怎么办？

Answer 5

如果你是用Edit来给用户输入的话，那么在OnExit中写：
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not DirectoryExists(Edit1.Text) then ShowMessage('此路径不存在!');
end;
此外：
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not FileExists(Edit1.Text) then ShowMessage('此文件不存在!');
end;