Question

delphi 如何创建文件夹

Answer 1

forcedirectories和CreateDirectory都能创建文件 ForceDirectories可以创建多层目录. 如果你创建一个目录为c:\mymusic\music 如果你的C盘不存在一个叫mymusic的文件夹 的话程序会自动创建，函数执行的结果是， 创建了两个文件夹，mymusic和music，music为 mymusic的子文件夹. CreateDirectory只能创建一个文件夹，如果 mymusic不存在，则反回创建music文件夹失败！ procedure TMain.WriteVPTXT(str:string);varMytextFile : TextFile; tempstr : string; SysTime: TsystemTime;begintryGetLocalTime(SysTime); //AssignFile(MyTextFile,'D:\delphi\delphitest\time.ini'); if not DirectoryExists('D:\Test') then CreateDirectory('D:\Test',nil); //创建单个目录 // forcedirectories ('D:\Test'); //创建多层目录 tempstr:='D:\Test\'+inttostr(Systime.wYear)+inttostr(systime.wMonth)+inttostr(systime.wDay)+'.txt'; AssignFile(MyTextFile,tempstr); if not fileExists(tempstr) then ReWrite(MyTextFile) else Append(MyTextFile);

Answer 2

ForceDirectories('D:\新文件夹');
或md('D:\新文件夹');
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('D:\bnabinge') then
begin
ForceDirectories('D:\bnabinge');
end
else
begin
Messagebox(Handle,'文件夹已存在?','警告', MB_ICONERROR);
abort;
end;
end;