Удаление файлов

← →
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);

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

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

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