Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:10:00 delphi创建指定的目录
4.ForceDirectories 函数创建指定的目录。通常在创建一个目录的时候,其父级目录必须存在。但是使用ForceDirectories创建目录的时候就没有这个限制,可以将所需的所有目录一次创建。如果创建成功,则函数返回True;如果有任何一个目录创建失败,则返回False。函数原型如下:function ForceDirectories(Dir: string): Boolean;下面这段示例代码对ForceDirectories 函数和DirectoryExists 函数进行了说明。uses FileCtrl; //必须在uses 语句中增加这个说明...procedure TForm1.Button1Click(Sender: TObject);varDir: string; //目录名称beginDir:=’C:SamplesCapturePhoto’; //一次创建3 级目录ForceDirectories(Dir);if DirectoryExists(Dir) thenMessageDlg(Dir+’已经存在!’,mtInformation, [mbOK], 0);end;
赞