Create;
Метод Create создает папку.
Если папка уже существует, то будет сгенерирована исключительная ситуация.
Sub Main;
Var
Dir: IDirectoryInfo;
Begin
Dir:=New DirectoryInfo.Attach("c:\New_folder");
If Not Dir.Exists Then
Dir.Create;
End If;
Dispose Dir;
End Sub Main;
После выполнения примера будет создана папка «New_folder», если она еще не существует.
См.также: