用delphi7.0写一个生成文件夹的程序

  path:string

  str: TStringList

begin

  path := 'C:\test' 

  CreateDir(path)

  str := TStringList.create

  str.text := '这是测试'

  str.savetofile(path + '\file.txt')

  str.free

end

CreateFile(FileName, fmCreate，）

创建文件夹：

ForceDirectiory

帮助里面有这两个函数的详细说明。