Создание директории на диске из кода

[Likefire]

Достаточно интересный на мой взгляд вопрос: как из кода Нави создать на диске новую директорию с определённым именем? Ну вот например, можно скопировать (удалить, переименовать) файл с помощью команды COPY (ERASE, RENAME), а есть ли команда на создание директории (папки)?

[Yoil]

Есть. называется SHELL
Типа SHELL('cmd /C', 'MKDIR', DIRNAME); (DIRNAME - имя директории)

[Likefire]

OK. А как проверить: а вдруг директория, которую я собрался создать,- уже существует?

[Yoil]

Ну дык.
Заводите переменную f типа file.
DIRNAME типа текст - имя директориии (к примеру, 'C:\TESTDIR\')
Пишете что-нибудь вроде
<div class='XPPtop'>X++</div><div class='XPP'>
[color=:blue]IF[/color] f.CREATE(DIRNAME + [color=:red]'test'[/color]) THEN
 [color=:green]//значит такая директория уже есть. рекомендуется
[/color]  [color=:green]//сделать   f.CLOSE и стереть его нафиг
[/color][color=:blue]ELSE[/color]
 [color=:green]//Значит, такой директории нет, создаем ее[/color]</div>

[Shoorik]

Есть на самом деле более красивый способ - при помощи функций библиотеки shell32.dll.
Объект Folder в этой библиотеке позволяет работать с каталогами - получать информацию, копировать, перемещать объекты между каталогами (подробное описание есть в MSDN - http://msdn.microsoft.com).

В примере используются переменные:
ShellApplication: Automation 'Microsoft Shell Controls And Automation'.Shell
ShellFolder: Automation 'Microsoft Shell Controls And Automation'.Folder

<div class='CALtop'>C/AL</div><div class='CAL'>
CREATE(ShellApplication);
ShellFolder:=ShellApplication.NameSpace('C:\New Folder');
//Если заданный каталог не существует, то объект ShellFolder не инициализирован
//В таком случае создаём каталог
IF ISCLEAR(ShellFolder) THEN BEGIN
 ShellFolder:=ShellApplication.NameSpace('C:\');
 ShellFolder.NewFolder('New Folder');
END;</div>

[Kirvisniemi]

Можно проще:

MSR : Automation 'Microsoft Scripting Runtime'.FileSystemObject";

CREATE(MSR);
MSR.CreateFolder('C:\123');

[el_patron]

ну и че не работает твой shell. чё ты гонишь

[rmv]

Shell в 5.1 работает несколько по другому нежели в 3.7 и 4.0.
el_patron - ты базар фильтруй а то мигом бан заработаешь.

[Alterant]

Цитата:

Сообщение от rmv

Shell в 5.1 работает несколько по другому нежели в 3.7 и 4.0.
el_patron - ты базар фильтруй а то мигом бан заработаешь.

rmv, очень интересно, не могли бы описать чуть подробней. В справке вроде изменений не заметил ...

[rmv]

Цитата:

Сообщение от Alterant

rmv, очень интересно, не могли бы описать чуть подробней. В справке вроде изменений не заметил ...

Похоже изменения появились в одном из сервис-паков 4.0.
Вкратце здесь:
http://www.mibuso.com/forum/viewtopic.php?t=12507
Ключевая фраза
"It seems that 4.0 doesn't search the PATH anymore, so you have to give the complete path and the environment variable in my previous post has the complete path"

[Alterant]

Цитата:

Сообщение от rmv

Похоже изменения появились в одном из сервис-паков 4.0.
Вкратце здесь:
http://www.mibuso.com/forum/viewtopic.php?t=12507
Ключевая фраза
"It seems that 4.0 doesn't search the PATH anymore, so you have to give the complete path and the environment variable in my previous post has the complete path"

Ясно, спасибо. Я всегда стараюсь передавать полный путь и по этому не заметил.

[Васыо]

У меня есть репорт, создающий на выходе несколько файлов. Как на реквест форме присвоить переменной путь к директории, чтобы можно было по OnAssistEdit её (директорию, а не файлы по отдельности) найти и выбрать?

[InTacto]

CLEAR(Shell32);
CREATE(Shell32);
Folder := Shell32.BrowseForFolder(0,'',0);
IF ISCLEAR(Folder) THEN
  EXIT;
FolderItem := Folder.Self;
"Path To CreatingFolder" := FolderItem.Path;



Name	DataType	Subtype	Length
Shell32	Automation	'Microsoft Shell Controls And Automation'.Shell	
Folder	Automation	'Microsoft Shell Controls And Automation'.Folder2	
FolderItem	Automation	'Microsoft Shell Controls And Automation'.FolderItem

В базовом коде кажется тоже что-то есть.

[Васыо]

о! как раз то что надо! спасибо.