![]() |
#5 |
Участник
|
Есть на самом деле более красивый способ - при помощи функций библиотеки 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> |
|