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

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

← →
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]

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

---

← →
alex_*** ©   (2004-01-26 17:06) [16]

ExtractShortPathName

---

← →
Андрей Сенченко ©   (2004-01-26 17:39) [17]

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

---

← →
panov ©   (2004-01-26 17:44) [18]

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

---

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

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

---

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

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



Память: 0.48 MB
Время: 0.021 c