function CreateDirNew(Dir: string): boolean;
var i: integer;
begin
for i:=1 to Length(Dir) do
if Dir[i]=PathDelim then
CreateDir(Copy(Dir, 1, i-1));
Result:=CreateDir(Dir);
end;
где:
Dir – полный путь в имени папки.
Например,
CreateDirNew('E:\1\2\12\85\Пробная папка')
выведет true,
если папка создана успешно; или
false, если папку
не удалось создать (нет диска, доступ запрещен или другие причины).
|