怎么判断一个目录是否存在？

Question

是用GetDriveType(Pchar())么？怎么个用法？哪位好心的大哥大姐能够给一个详细一点儿的例子么？我用的是Path:=readReg('DataPath');  //这是另外的一个函数，从注册表中度取一个路经
showmessage(Path);   //  D:\datapath\NewData
if not(copy(path,length(path),1)='\') then
  path:=path+'\';
if getdrivetype(Pchar(Path))=1 then
  showmessage('文件夹不存在')
else
  showmessage('文件夹已经存在！');问题是，他老实提示文件夹不存在！即使明明已经存在了嘛