delphi 如何创建文件夹

forcedirectories和CreateDirectory都能创建文件ForceDirectories可以创建多层目录.如果你创建一个目录为c:\mymusic\music如果你的C盘不存在一个叫mymusic的文件夹的话程序会自动创建，函数执行的结果是，创建了两个文件夹，mymusic和music，music为mymusic的子文件夹.CreateDirectory只能创建一个文件夹，如果mymusic不存在，则反回创建music文件夹失败！procedure TMain.WriteVPTXT(str:string)varMytextFile : TextFiletempstr : stringSysTime: TsystemTimebegintryGetLocalTime(SysTime)//AssignFile(MyTextFile,'D:\delphi\delphitest\time.ini')if not DirectoryExists('D:\Test') thenCreateDirectory('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)

1、TIniFile对象

 以Delphi中，定义了一个TIniFile对象，将.INI文件封装在其中，并提供一些方法，专门用来对INI文件进行读写 *** 作。如果在程序中要用到TIniFile类或其方法属性，就必须在程序单元的uses语句中手工加入对IniFiles单元的引用。

2、Create方法

 该方法用来创建一个处理INI文件的TIniFile类型实例。

 方法声明：constructor Create(const FileName:string)

 参数说明：FileName指明待创建的INI文件的文件名；

 注释：在使用TIniFile对象之前，必须先用此方法创建一个INI文件的实例。FileName中可以包含路径名，缺省时为Windows所在目录（一般就是C:windows，对于Windows NT来说，则一般是c:winnt)。用Create方法创建的实例，在使用完之后，调用Free方法释放内存。

创建文件：

CreateFile(FileName, fmCreate，）

创建文件夹：

ForceDirectiory

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

---