TDirectory.CreateDirectory 完整、严谨的创建一个目录
描述:创建一个目录,不包含多级目录(多级目录使用System.SysUtils.ForceDirectories,Vcl.FileCtrl.ForceDirectories已过时)
- procedure CreateDirectory(Path: string);
参数一:给定的路径如D:\aa,非完整路径如aa则在程序当前目录下创建
完整代码
- unit Unit1;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
- System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.IOUtils,
- Vcl.FileCtrl;
- type
- TForm1 = class(TForm)
- GroupBox1: TGroupBox;
- Button_Create: TButton;
- Label1: TLabel;
- Button_Browser: TButton;
- Edit_Dir: TEdit;
- procedure Button_CreateClick(Sender: TObject);
- procedure Button_BrowserClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- Uses Unit2;
- {$R *.dfm}
- procedure TForm1.Button_BrowserClick(Sender: TObject);
- var
- Dir: string;
- Flag: Integer;
- begin
- if Edit_Dir.Text <> '' then // 为空先选择目录
- begin
- Flag := MessageDlg('Yes修改名称,No选择目录,Cancel无作为', mtInformation,
- [mbYes, mbNo, mbCancel], );
- if Flag = IDYES then
- begin
- Form2.ShowModal;
- Exit;
- end
- else if Flag = IDNO then
- begin
- if not selectDirectory('', '', Dir) then
- Exit;
- Form2.setDir(Dir);
- Form2.ShowModal;
- Exit;
- end;
- Exit; //为IDCancel直接退出
- end;
- if not selectDirectory('', '', Dir) then
- Exit;
- Form2.setDir(Dir);
- Form2.ShowModal;
- Exit;
- end;
- procedure TForm1.Button_CreateClick(Sender: TObject);
- begin
- if Trim(Edit_Dir.Text) = '' then
- begin
- MessageDlg('请先选择目录', mtInformation, [mbOK], );
- Exit;
- end;
- if not TDirectory.Exists(Edit_Dir.Text) then
- begin
- try
- TDirectory.CreateDirectory(Edit_Dir.Text);
- except
- on E: Exception do
- begin
- MessageDlg('创建失败!' + E.Message, mtError, [mbOK], );
- Exit;
- end;
- end;
- ShowMessage('创建成功!');
- Exit;
- end;
- MessageDlg('文件夹已存在!', mtError, [mbOK], );
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- Edit_Dir.ReadOnly := True;
- end;
- end.
- unit Unit2;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
- type
- TForm2 = class(TForm)
- Edit_Path: TEdit;
- Button_OK: TButton;
- procedure Button_OKClick(Sender: TObject);
- procedure setDir(Dir: String);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form2: TForm2;
- implementation
- uses Unit1;
- {$R *.dfm}
- var
- sDir: string;
- procedure TForm2.setDir(Dir: String);
- begin
- sDir := Dir;
- end;
- procedure TForm2.Button_OKClick(Sender: TObject);
- const
- InvalidChrs: array [ .. ] of Char = ('\', '/', '*', '?', ':', '|', '>',
- '<', '"'); //特殊字符
- InvalidStrs: array [ .. ] of string = ('con', 'aux', 'lpt1', 'lpt2',
- 'com1', 'com2', 'prn', 'nul'); // windows预留名称,此处省略万把个
- var
- Dir2: string;
- I: Integer;
- begin
- if Trim(Edit_Path.Text) = '' then
- begin
- MessageDlg('请输入目录名称!', mtError, [mbOK], );
- Exit;
- end;
- Dir2 := Edit_Path.Text;
- for I := to Length(InvalidChrs) do
- begin
- if Pos(InvalidChrs[i], Dir2) <> then
- begin
- MessageDlg('无效目录(特殊字符)', mtError, [mbOK], );
- Exit;
- end;
- end;
- for I := to Length(InvalidStrs) do
- begin
- if InvalidStrs[I] = LowerCase(Dir2) then
- begin
- MessageDlg('无效目录(特殊字符)', mtError, [mbOK], );
- Exit;
- end;
- end;
- if AnsiLastChar(sDir) = '\' then //判断是否根目录
- Form1.Edit_Dir.Text := sDir + Dir2
- else
- Form1.Edit_Dir.Text := sDir + '\' + Dir2;
- Close;
- end;
- end.
效果演示:
TDirectory.CreateDirectory 完整、严谨的创建一个目录的更多相关文章
- 创建一个目录info,并在目录中创建一个文件test.txt,把该文件的信息读取出来,并显示出来
/*4.创建一个目录info,并在目录中创建一个文件test.txt,把该文件的信息读取出来,并显示出来*/ #import <Foundation/Foundation.h>#defin ...
- 创建一个目录的软连接ln -s和打印当前目录pwd的一个知识点
创建一个目录的软连接,比如我在家目录下创建一个/data/www/的软连接,如下 # cd ~ # ln -s /data/www hehe #这里一定要注意顺序哈哈 然后当我进入hehe ...
- 利用django创建一个投票网站(三)
创建你的第一个 Django 项目, 第三部分 这一篇从第二部分(zh)结尾的地方继续讲起.我们将继续编写投票应用,并且聚焦于如何创建公用界面--也被称为"视图". 设计哲学 Dj ...
- 如何利用gatling创建一个性能测试例
[原创博文,转载请声明出处] 基于上一篇博文介绍如何源码编译创建自己的gatling可执行工具,今天介绍一下如何基于gatling做性能测试! 由于gatling的测试例脚本是基于scala写的,所以 ...
- php mkdir 创建多级目录实例代码
先介绍一下 mkdir() 这个函数 mkdir($path,0777,true); 第一个参数:必须,代表要创建的多级目录的路径. 第二个参数:设定目录的权限,默认是 0777,意味着最大可能的访问 ...
- Django 创建一个应用程序
1. 认识Django Django是一个高级的Python Web框架,它鼓励快速开发和清洁,务实的设计. 由经验丰富的开发人员构建,它负责Web开发的许多麻烦,因此您可以专注于编写应用程序,而无需 ...
- 使用maven创建一个例子
创建一个目录:D:\testmaven 在命令行中切换到D:\testmaven目录后输入: mvn archetype:generate 下载骨架,它会往本地工厂存信息 也可以直接使用带有参数的命令 ...
- 创建一个catkin工作空间
先确定自己的环境变量是否设置正确 export | grep ROS 若出现如下的,说明是正确的 declare -x ROSLISP_PACKAGE_DIRECTORIES="" ...
- .NET Core 1.0 CentOS7 尝试(三、使用VSCode创建一个Web应用)
参考地址:https://docs.asp.net/en/latest/tutorials/your-first-mac-aspnet.html 一.使用VSCode创建一个目录FirstWebApp ...
随机推荐
- 【阿里云产品公测】与云引擎ACE第一次亲密接触
阿里云用户:林哥神话 公测当然是第一次了.这个第一次亲密接触,但话又说回来对ACE我一直都不是那感兴趣的,但是看到阿里介绍还是那般神奇,再加上200无代金券来更加给力.最后就申请了这次公测. 平时一直 ...
- 【¥200代金券、iPad等您来拿】 阿里云9大产品免费公测#10月9日-11月6日#
#10.09-11.06#200元代金券.iPad大奖, 9大产品评测活动! 亲爱的阿里云小伙伴们: 云产品的多样性(更多的云产品)也是让用户深度使用云计算的关键.今年阿里云产品线越来越丰富,小云搜罗 ...
- 【Android 界面效果31】Android--侧滑菜单应用的实现
侧滑菜单应用现在非常多,而且实现方式也多种多样.通过在网上的多方查找,我找到郭霖少侠的这篇文章:http://blog.csdn.net/guolin_blog/article/details/874 ...
- Android之EditText文本变化的监听
监听EditText的文本变化需要给EditText控件加一个addTextChangeListener监听器 editText.addTextChangeListener(textWatcher); ...
- 程序员怎样在复杂代码中找 bug?(简单)
分享下我的debug的经验 1. 优先解决那些可重现的,可重现的bug特别好找,反复调试测试就好了,先把好解决的干掉,这样最节约时间. 2. 对于某些bug没有头绪或者现象古怪不知道从哪里下手,找有经 ...
- 锋利的jQuery第2版学习笔记6、7章
第6章,jQuery与Ajax的应用 Ajax的优势和不足 Ajax的优势 1.不需要插件支持 2.优秀的用户体验 3.提高Web程序的性能 4.减轻服务器和带宽的负担 Ajax的不足 1.浏览器对X ...
- return,exit,die
return:代表退出某个函数,但是函数体外的语句仍然需要执行. exit:退出程序,但是不从内存中卸载,exit其实也是可以输出语句的,加一个括号即可. die:退出程序,并且从内存中卸载.
- JS正则表达式简单总结
正则表达式定义 JavaScript中的正则表达式用RegExp 对象表示,可以使用RegExp ()构造函数来创建RegExp对象,不过RegExp 对象更多的是通过一种特殊的直接量愈发来创建. 例 ...
- php数据过滤函数与方法示例【转载】
1.php提交数据过滤的基本原则 1)提交变量进数据库时,我们必须使用addslashes()进行过滤,像我们的注入问题,一个addslashes()也就搞定了.其实在涉及到变量取值时,intval( ...
- 苹果系统开发中的混合编程(1):Objective-C和C++的相互调用
首先是OC调用C++的代码. 创建一个Objective-C的项目,并创建c++文件MyCppFile.hpp和MyCppFile.cpp. 把要调用Cpp代码的文件名改成mm后缀名,项目代码 ...