创建150个文件夹

codebutcher · 发表于 2013-3-31 17:43

本帖最后由 codebutcher 于 2013-4-1 14:36 编辑

打开Delphi IDE，File(文件)→New(新建)→Other(其它)→New Items(新建项目)→Delphi Projects(Delphi工程文件)→Console Application(控制台应用程序)
贴上下面的代码运行即可。
program NewFolders;
uses SysUtils;
var
x:LongInt;
begin
for x:=1 to 150 do begin
CreateDir('C:\新建文件夹'+IntToStr(x));//可以自定义创建文件夹的路径
end;
end.

leijun1984 · 发表于 2013-3-31 22:35

干什么用的？？用在什么地方，请指教

老安 · 发表于 2013-7-24 17:14

我看这个功能
也可以用dos命令来实现

6471750 · 发表于 2013-8-1 13:30

有什么用呢

jiba448 · 发表于 2013-8-1 16:41

确实。有什么用呢。说下。

jjj47gt · 发表于 2013-8-1 16:43

不明白这个是干嘛用呢不过我来学习也好的

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 创建150个文件夹

个人中心