Delete Directory

[fialka]

Подскажите, создаём папки так WinAPI::createDirectory(fileName);
А как удалить?

[lev]

WinApi::removeDirectory('C:\\DirTest');

[fialka]

думала, что для перемещения этот метод, а оказывается что удаляет ... спасибо..

[fialka]

эх, а ведь removeDirectory удаляет только пустой каталог, а как можно удалить каталог содержащий файлы?

[Андре]

Предварительно удалив файлы с помощью WinAPI::findFirstFile(), WinAPI::findNextFile(), WinAPI::deleteFile().

[fialka]

static void Job(Args _args)
{
    FileName         baseFolder = "C:\\Documents and Settings\\Рабочий стол\\14\\";
    str                   fileName;
    dialogButton     dialogButton;
    int                   hand;
    ;
    fileName = strfmt('%1*.*',baseFolder);
    [hand, FileName] = winapi::findFirstFile(fileName);
 
    dialogButton = BOX::yesNo(" В указанном каталоге существуют файлы. Удалить?",DialogButton::Yes);
    if (dialogButton == DialogButton::Yes)
    {
        while (FileName)
        {
            info(FileName);
            if(strlen(FileName)>2)
                WinApi::deleteFile(FileName);
            FileName = winapi::findNextFile(hand);
         }
    }
    //  WinApi::removeDirectory(baseFolder);
}

Делаю вот-так. перечисляет все файлы в папке, но не удаляет.( Кстати сперва перечисляет файл "." и "..", а потом уже содержащиеся в каталоге

[Андре]

А что возвращает deleteFile()? Если что-то отличное от нуля - то это код ошибки.

[fialka]

 deleteFileError = WinApi::deleteFile(FileName);
 info(strfmt("%1, %2",FileName,deleteFileError));

., 0
.., 0
Word1.doc, 2
Excel1.xls, 2
получается вот что... то есть те файлы которых нет "." выдаёт 0, а в тех которые существуют ошибка 2.

[fialka]

всё. решила проблему.
нужно было писать WinApi::deleteFile(baseFolder +FileName);

[Андре]

На будущее - http://semper.fi.tripod.com/welt/index.htm
Чтобы получить по номеру текст ошибки.

[fialka]

спасибо.

[Владимир Максимов]

Для файловых операций можно еще использовать объект Scripting.FileSystemObject. Это COM-обертка над API-интерфейсом. Поищите по форуму. Примеры приводились. Например здесь

WinApi::shellExecute("DEL"

[fialka]

Цитата:

Сообщение от Владимир Максимов

Для файловых операций можно еще использовать объект Scripting.FileSystemObject. Это COM-обертка над API-интерфейсом. Поищите по форуму. Примеры приводились. Например здесь

WinApi::shellExecute("DEL"

    COM                comFSO = new COM("Scripting.FileSystemObject");
    Com                 comFolder;
    FileFolder_RU   fileFolder_RU = "C:\\Documents and Settings\\Рабочий стол\\2";
    ;
    if (comFSO.FolderExists(fileFolder_RU))
    {
        comFolder = comFSO.GetFolder(fileFolder_RU);
        comFolder.delete(true);
    }
}

попробовала так, в джобе нормально удаляет. всё быстро и без запинки..
а применила в таблице - ошибку выдало Сбой запроса на разрешение типа "InteropPermission".
получилось только после того как метод на клиенте запустила.
Так что огромное спасибо. всё получилось