如何用DELPHI创建一个文件夹和一个文本文件

Question

如何用DELPHI创建一个文件夹和一个文本文件

Answer 1

CreateDir();//Delphi Function
CreateFile(); //API Function

Answer 2

创建文本文件
filecreate('c:\lzx.txt');

Answer 3

建立一个edit，输入创建的路径。
创建文件夹：
forcedirectories(edit1.text);
创建文本文件：
var
  mufile:textfile;
begin
  assignfile(mufile,'D:\s.text');//将myfile变量与名称为s.txt文件相关联
  rewrite(mufile);//打开文件
 下面可以向文本中加入内容
  writeln(mufile,'dfdsfsdfdsfdfsdf');
closefile(myfile);
end;
结贴吧！

Answer 4

创建一个文件夹
 1、MkDir(const S: string); //创建一个子文件夹
 2、ForceDirectories(Dir: string): Boolean;  //创建文件夹包括它的上级目录procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin  Dir := 'C:\APPS\SALES\LOCAL';
  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' was created';
end;创建一个文本文件
procedure TForm1.Button1Click(Sender: TObject);
var
 var F: TextFile;
begin
  AssignFile(F, 'NEWFILE.$$$');  //赋值文件名
  Rewrite(F);  //创建文件并打开
  Writeln(F, 'Just created file with this text in it...'); //在文件中写数据
  CloseFile(F);  //关闭文件
end;