Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление файлов [D7, 2000, XP]

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

pavel_guzhanov (2006-01-27 11:47:00) [1]
Спасибо! Все заработало

umbra (2006-01-27 11:36:00) [2]

> 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:22:00) [3]
сделал так:

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='', и, соответственно, ничего не удаляется....
Что я делаю не так?

Комар (2006-01-27 10:38:00) [4]
FindFirst, FindNext +DeleteFile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »