Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];

Вниз

Как быстро удалить каталог?   Найти похожие ветки 

 
intell   (2003-12-10 17:57) [0]

Как быстро удалить каталог в котором подкаталоги и файлы? Можно делать это через DelTree, но он не поддерживает каталогов с русским названием. Можно ли как-то осуществить очень быстрое удаление, как с DelTree?


 
Intell   (2003-12-11 09:02) [1]

Я пробовал через стандартный досовский файл DelTree. Он прекрасно справляется с задачей, но ненавидит папки с рускоязычным названием. Как с этим бороться? Помогите пожалуйста!


 
Anatoly Podgoretsky   (2003-12-11 09:04) [2]

То есть как это не поддерживает, ты что то путаешь.
И какой смысл делать это досовской программой, когда есть прекрасная поддержка в АПИ для работы с файлами - ShFileOperation


 
Stas   (2003-12-11 09:37) [3]

Function RemoveAll(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + "\*.*";
iIndex := FindFirst(sDir, faAnyFile, SearchRec);

while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+"\"+SearchRec.Name;
if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> "" ) and
(SearchRec.Name <> ".") and
(SearchRec.Name <> "..") then
RemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
ShowMessage("Could NOT delete " + sFileName);
end;
iIndex := FindNext(SearchRec);
end;

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));
Result := True;
end;


 
Intell   (2003-12-11 12:11) [4]

Спасибо, выручили!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.02 c
1-75171
ISP
2003-12-08 18:25
2003.12.23
Граждане, такой вопрос по TMemoryStream:


1-75210
gs
2003-12-11 01:25
2003.12.23
Подскажите, кто знает, где Взять хороший DBGrid компонент


3-75092
digester
2003-11-30 13:09
2003.12.23
ПОМОГИТЕ Пожалуйста с IBQUERY


14-75396
Думкин
2003-11-28 05:29
2003.12.23
С днем рождения! 28 ноября.


4-75447
DDS
2003-10-25 16:45
2003.12.23
Почему не скрывается запущенная прога через CreateProcess?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский