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文件夹失败! 

  • 相关阅读:
    【Django】Django REST Framework简单教程
    【SpringBoot | Druid】SpringBoot整合Druid
    【SpringBoot | Swagger】SpringBoot整合Swagger
    【Vue | ElementUI】Vue离开当前页面时弹出确认框实现
    【SpringBoot | Redis】SpringBoot整合Redis
    【评测机】评测时报错cc1plus: fatal error: /xx/xx/main.cpp: Permission denied compilation terminated.的解决方法
    Hello world!
    【续】将HUSTOJ备份数据并迁移至Ubuntu16.04
    将HUSTOJ备份数据并迁移至Ubuntu16.04
    【BZOJ2118】墨墨的等式【循环节做法】
  • 原文地址:https://www.cnblogs.com/Little-Star/p/7485473.html
Copyright © 2011-2022 走看看