Delphi怎么判断一个文件存在与否,文件还是文件夹

如题所述

在 Delphi é‡Œå¯ä»¥ä½¿ç”¨ FileExists / DirectoryExists å‡½æ•°æ¥åˆ¤æ–­æŒ‡å®šæ–‡ä»¶ã€æ–‡ä»¶å¤¹æ˜¯å¦å­˜åœ¨ï¼Œä¹Ÿå¯ä»¥ä½¿ç”¨ GetFileAttributes å‡½æ•°æ¥èŽ·å–指定目标属性来判断,以下是示例:


procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileExists('e:\test.xls') then
    ShowMessage('文件存在。')
  else
    ShowMessage('文件不存在。');
  if DirectoryExists('E:\2017å¹´\其他') then
    ShowMessage('是文件夹。')
  else
    ShowMessage('文件夹不存在或不是文件夹。');
end;
温馨提示:内容为网友见解,仅供参考
无其他回答

Delphi怎么判断一个文件存在与否,文件还是文件夹
在 Delphi 里可以使用 FileExists \/ DirectoryExists 函数来判断指定文件、文件夹是否存在,也可以使用 GetFileAttributes 函数来获取指定目标属性来判断,以下是示例:procedure TForm1.Button1Click(Sender: TObject);begin if FileExists('e:\\test.xls') then ShowMessage('文件存在。') else Sh...

Delphi判断文件夹是否存在,不存在就创建一个
delphi 判断文件夹目录可以使用 DirectoryExists 函数,而创建目录可以使用 CreateDir 和 ForceDirectories 函数。CreateDir 和 ForceDirectories 函数都可以创建文件夹,两者的区别在于:ForceDirectories 创建多级目录,父目录不必存在;而 CreateDir 只能创建最后的一级目录,父目录必须存在。举例说明:如果需要建立 d...

delphi 判断文件夹是否有文件
if FileExists('路径') then MessageBox(0,'存在','提示',MB_OK); \/\/判断文件是否存在if DirectoryExists('路径') then MessageBox(0,'存在','提示',MB_OK); \/\/判断文件夹(路径)是否存在

delphi 只知道文件名,不知道路径,怎样判断文件存在
FileExists 判断是否存在,肯定要写绝对路径的。不知道路径,只能遍历所有文件夹了

delphi判断文件夹是否存在
var AFilePath : string;begin AFilePath := ExtractFilePath(ParamStr(0)); \/\/取当前程序运行目录 AFilePath := AFilePath + 'c'; \/\/加上C文件夹 if DirectoryExists(AFilePath) then ShowMessage('目录存在')else ShowMessage('目录不存在');end;...

delphi判断文件是否存在问题
txt');if FileExists(extractFilePath(application.exeName)+'newFile\\123.txt')then label2.Caption :='创建成功'else label2.Caption :='创建失败';end;上面的代码可以在一个已经存在的newfile文件夹下创建123.txt并写入内容(无论newfile文件夹下有几个txt,只要windows允许就行)!

delphi中,把某一目录下所有的JPG文件移动到另一个目录下,怎么做实现...
可以这么考虑!用FindFirst和FindNext可以遍历文件夹,将所有文件都列出来,然后通过ExtractFileExt这个函数判断文件类型,再然后用CopyFile函数复制就可以了 CopyFile函数F1里的函数原型 TheCopyFilefunctioncopiesanexistingfiletoanewfile.BOOLCopyFile(LPCTSTRlpExistingFileName,\/\/pointertonameofanexistingfile LPC...

delphi判断ftp目录是否存在
如果是用 IDFTP控件的话,可以先ls 再用名称比对,如果名称对了以后再用 ItemType = ditDirectory 判断是否是文件夹。。。

delphi 判断文件夹是否有文件
提供一个 判断文件夹是否为空文件夹 示例功能函数代码如下:function IsEmptyDir(sDir: String): Boolean; var sr: TsearchRec; begin Result := True; if Copy(sDir, Length(sDir) - 1, 1) <> '\\' then sDir := sDir + '\\'; if FindFirst(sDir + '*.*', faAnyF...

如何用delphi编写一个文件管理器要求在程序中可以打开指定的文件夹...
我说一个思路:建立一个Form里面加上一上Edit 一个OpenDialog,在Edit的OnClick里写一个事件,即点击打开OpenDialog,如果OpenDialog.Execute=true then,Edit.text=OpenDialog.Filename.点击按钮后,把文件复制到想复制到的文件夹里.代码自己写吧

相似回答