Скачать: CL | DM;

Удаление файлов   Найти похожие ветки 

← →
pavel_guzhanov ©   (2006-01-27 10:26) [0]

Подскажите, как можно программно удалить все файлы, находящиеся в папке, которая в свою очередь находится в папке "Мои документы"? Я попытался в коммандной строке выполнить следующую команду:
erase /f /q C:\Documents and Settings\myProfile\Мои документы\1234\*.*,
но получил ответ, что указаный путь не найден. Предполагаю, что это из-за русских букв в пути. Есть ли какая-то команда удаления файлов, которой наплевать на русские буквы? Команду DEL я тоже пробовал, ничего не меняется, также пробовал сокращать длинные имена до 8 символов с "~", тоже не помогло.
В программе на delphi я собираюсь использовать эту строку в WinExec/

---

← →
Комар   (2006-01-27 10:38) [1]

FindFirst, FindNext +DeleteFile

---

← →
pavel_guzhanov ©   (2006-01-27 11:22) [2]

сделал так:


var s:String;
   FileAttrs: Integer;
   sr: TSearchRec;
begin
s:=GetEnvironmentVariable("USERPROFILE");
FileAttrs:=faReadOnly+faHidden+faSysFile+faVolumeID+faDirectory+faArchive+faAnyFile;
FindFirst(S+"\Мои документы\1234\", FileAttrs, sr);
DeleteFile(sr.Name);
end;

Получаю, что sr.Name="", и, соответственно, ничего не удаляется....
Что я делаю не так?

---

← →
umbra ©   (2006-01-27 11:36) [3]

> erase /f /q C:\Documents and Settings\myProfile\Мои документы\1234\*.
> *

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

erase /f /q "C:\Documents and Settings\myProfile\Мои документы\1234\*.*"

2 pavel_guzhanov ©   (27.01.06 11:22) [2]

FindFirst(S+"\Мои документы\1234\*.*", FileAttrs, sr);

надо к пути добавлять маску имен файлов

---

← →
pavel_guzhanov ©   (2006-01-27 11:47) [4]

Спасибо! Все заработало

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c