zoukankan      html  css  js  c++  java
  • Delphi判断文件夹(目录)是否存在,不存在就创建一个,可以一次创建多级目录

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if not FileExists(Edit1.Text) then
    //if not DirectoryExists(Edit1.Text) then 判断目录是否存在
    try
    begin
    CreateDir(Edit1.Text);
    //ForceDirectories(Edit1.Text); 创建目录
    end;
    finally
    raise Exception.Create('Cannot Create '+Edit1.Text);
    end;

    end;


    //三个函数引用自SysUtils单元 

    FileExists(Path)检查目录是否存在function FileExists(const FileName: string): Boolean; 

    DirectorysExists(Path)创建目录function DirectoryExists(const Directory: string): Boolean; 

    CreateDirectory(Path)创建目录function ForceDirectories(Dir: string): Boolean; 

    ForceDirectories(Path)创建目录 

    CreateDirectory(Path)创建目录 

    forcedirectories和CreateDirectory都能创建文件 
    ForceDirectories可以创建多层目录.  
    如果你创建一个目录为c:mymusicmusic  
    如果你的C盘不存在一个叫mymusic的文件夹  
    的话程序会自动创建,函数执行的结果是,  
    创建了两个文件夹,mymusic和music,music为  
    mymusic的子文件夹.  

    CreateDirectory只能创建一个文件夹,如果  
    mymusic不存在,则反回创建music文件夹失败! 

    //三个函数引用自SysUtils单元 

    FileExists(Path)检查目录是否存在function FileExists(const FileName: string): Boolean; 

    DirectorysExists(Path)创建目录function DirectoryExists(const Directory: string): Boolean; 

    CreateDirectory(Path)创建目录function ForceDirectories(Dir: string): Boolean; 

    ForceDirectories(Path)创建目录 

    CreateDirectory(Path)创建目录 

    forcedirectories和CreateDirectory都能创建文件 
    ForceDirectories可以创建多层目录.  
    如果你创建一个目录为c:mymusicmusic  
    如果你的C盘不存在一个叫mymusic的文件夹  
    的话程序会自动创建,函数执行的结果是,  
    创建了两个文件夹,mymusic和music,music为  
    mymusic的子文件夹.  

    CreateDirectory只能创建一个文件夹,如果  
    mymusic不存在,则反回创建music文件夹失败! 

  • 相关阅读:
    IDEA 远程调试springboot
    Mybatitas-plus实现逻辑删除
    java通过poi导出excel
    js 展示当前时间
    Linux环境下服务自启
    Spring自带定时器@Scheduled
    Quartz任务调度框架相关方法、参数理解
    Quartz 实现定时任务
    mysql 使用union(all) + order by 导致排序失效
    mongodb的查询操作
  • 原文地址:https://www.cnblogs.com/Little-Star/p/7485473.html
Copyright © 2011-2022 走看看