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

← →
New (2004-01-26 13:04) [0]

Почему не могу удалить?
Пишу:
selectdirectory("Укажите папку","",Dir);
Dir:=Dir+"\имя файла";
DeleteFile(Dir);
if deletefile(dir)=false then
showmessage("не могу");
Почему он пишет "не могу" при выполнении?

← →
kull © (2004-01-26 13:10) [1]

DeleteFile 2 раза вызывается.

← →
Skier © (2004-01-26 13:14) [2]

почитай внимательно справку по deletefile(...)

← →
alexEagle © (2004-01-26 13:49) [3]

Жаль что он не пишет "НЕ ХОЧУ" :):)

← →
имя (2004-01-26 14:09) [4]

Удалено модератором

← →
Dimka Maslov © (2004-01-26 14:14) [5]

для удаления папки служит RemoveDirectory, перед вызовом которой надо удалить всю подструктуру

← →
New (2004-01-26 14:16) [6]

Зачем папку. Мне нужно файл из этой папки.
Вот я и пишу:
selectdirectory("Укажите папку","",Dir);
Dir:=Dir+"\имя файла";
if FileExists(Dir) then
DeleteFile(Dir)
А он мне выводит, что файла нет, хотя в dir - путь целиком.

← →
YuRock © (2004-01-26 15:28) [7]

А почемы Вы решили, что файла нет (тем более, что FileExists вернул True)? Может, его просто удалить нельзя (он открыт кем-то)?

← →
New (2004-01-26 15:53) [8]

Да нет, он вернул как раз False. Вот этого не погимаю.
Хотя в "dir" - путь целиком.
Файл никем не используется.

← →
YuRock © (2004-01-26 16:00) [9]

Может Dir = "C:\Windows\\имя файла"? Или чт-то типа этого?

← →
химик (2004-01-26 16:04) [10]

см kull [1]

← →
New (2004-01-26 16:25) [11]

>химик (26.01.04 16:04) [10]

Уже нет:

selectdirectory("Укажите папку","",Dir);
Dir:=Dir+"\имя файла";
if FileExists(Dir) then
DeleteFile(Dir)

← →
panov © (2004-01-26 16:26) [12]

Покажи, какие конкретно имя каталога и файла выбирается.

← →
kull © (2004-01-26 16:41) [13]

Ну если FileExists false возвращает, то похоже что с путем что-то не так. Или действительно нет такого файла.

← →
New (2004-01-26 16:45) [14]

Selectdirectory("Укажите папку","",Dir); даёт:
"C:\Documents and Settings\Имя\Рабочий стол\1"
Dir:=Dir+""\1.ini";
Label1.caption:=dir даёт
"C:\Documents and Settings\Имя\Рабочий стол\1\1.ini"

← →
New (2004-01-26 16:50) [15]

Блин, похоже, что проблемма в пути (русских буквах).
Сейчас сделал, чтобы файл был по пути, в котором только английский буквы - всё ОК. Можно ли это обойти?

ExtractShortPathName

Ага. Так Тебе и дали просто так снести что-то с рабочего стола в 2000-х.
Права то есть ?

>New (26.01.04 16:45) [14]
В двойные кавычки попробуй заключить путь

← →
New (2004-01-26 17:49) [19]

ExtractShortPathName - помогло.
Всем спасибо.

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