Проблема с удалением файлов

Страница 1 из 1 1
Модератор форума: as-master

Deff

Дата: Воскресенье, 23 Марта 2008, 16:32 | Сообщение # 1

Любопытный

Группа: Проверенные

Сообщений: 30

Репутация: 0

Награды: 0

Статус: Offline

Прошу помощи у великих mmb магистров cool

В-общем у меня есть несколько файлов, имена и пути которых я знаю и мне нужно удалить их. Вот мой скрипт, но так я и не удалябтся они почему то... cry

ps. Мучаюсь уже полдня. Последствия моих экспериментов: удалил все ini файлы, находящиеся в паке Windows cry + состерлось парочка моих проектов , один из которых очень важен для меня, который я делаю уже год....(обратился за помощью по восстановелнию к toizy, жду ответа от него...) cry cry

Code

ListBoxAddItem("SongList6","<Windows>\dp6_ft.ini")
ListBoxAddItem("SongList6","<Windows>\dp6_music.ini")
ListBoxAddItem("SongList6","<Wi ndows>\dp6_wall.ini")
ListBoxGetItems("SongList6","Items$,ItemsNum$,#,Num")
ListBoxGetItems("SongList6","Items$,ItemsNum$,#,NumItems")
Fo r i=NumItems To 1
   t$ = GetArrayItem(Items$,#,i)
   numitem$ = GetArrayItem(ItemsNum$,#,i)
   numitem = VAL(numitem$)
   ListBoxDeleteItem("SongList6","numitem")
   SongListDel("numitem")
   param$='WAIT,HIDE /c del "' +t$+ '"/F /Q'
   Run("cmd","param$")
Next i
Message("Все сведения успешно удалены:)","")

Добавлено (23 Март 2008, 16:32)
---------------------------------------------
почему-то в коде на форуме в некоторых местах в словах пробелы лишние появились. на самом деле все норм. так что на это внимание не обращать

Искусственный интеллект - ничто по сравнению с естественной глупостью.

toizy

Дата: Воскресенье, 23 Марта 2008, 23:52 | Сообщение # 2

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Code

ListBoxAddItem("SongList6","<Windows>\dp6_ft.ini")

Я сомневаююсь, что ММВ не попытается добавить не путь к этому файлу, а его содержимое. Т.е. переменная t$ не будет содержать пути к файлу. Так что для начала поставь мессагу после t$, чтобы проверить, правильный ли путь к удаляемому файлу. У меня удалается нормально, ищи проблему в переменной t$.

И вот нафига цикл, убей, не пойму. Убери его нафиг!

t$ = GetArrayItem(Items$,#,1 )

Жизнь оказалась не такой уж и забавной, как поначалу...

Deff

Дата: Понедельник, 24 Марта 2008, 01:18 | Сообщение # 3

Любопытный

Группа: Проверенные

Сообщений: 30

Репутация: 0

Награды: 0

Статус: Offline

все понял ща попробую

зы. Цикл для того, что мало ли я еще захочу добавить строчку, содержащую еще пути к файлам которые мне надо удалить

Добавлено (24 Март 2008, 01:18)
---------------------------------------------
Не, у меня есть конечно рабочий вариант удаления файлов, но я бы хотел сделать через цикл, так меньше места кода будет чем если каждый раз переписывать, то что щас есть для каждого файла

Quote

Dir$='<Windows>\\'
File$='dp6_ft.ini'
param$='WAIT,HIDE /c del "' +Dir$+File$+ '"/F /Q'
Run("cmd","param$")

Искусственный интеллект - ничто по сравнению с естественной глупостью.

Сообщение отредактировал Deff - Понедельник, 24 Марта 2008, 01:19

Rush

Дата: Понедельник, 24 Марта 2008, 02:36 | Сообщение # 4

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Quote (Deff)

но я бы хотел сделать через цикл

Так ведь нет проблем - ListBoxAddItem("SongList6","STRING:<Windows>\dp6_ft.ini")
Ну и т.д.

Code

ListBoxAddItem("SongList6","STRING:<Windows>\dp6_ft.ini")
ListBoxAddItem("SongList6","STRING:<Windows>\dp6_music.ini")
ListBoxAddItem("Son gList6","STRING:<Windows>\dp6_wall.ini")
ListBoxGetItems("SongList6","Items$,ItemsNum$,#,NumItems")
For i=NumItems To 1
param$='WAIT,HIDE /c del "' +GetArrayItem(Items$,#,i)+ '"/F/Q'
Run("cmd","param$")
Next i
ListBoxAddItem("SongList6","RESET")
Message("Все сведения успешно удалены:)","")

Deff

Дата: Понедельник, 24 Марта 2008, 12:16 | Сообщение # 5

Любопытный

Группа: Проверенные

Сообщений: 30

Репутация: 0

Награды: 0

Статус: Offline

Спасибо))) biggrin

Искусственный интеллект - ничто по сравнению с естественной глупостью.

Проблема с удалением файлов

Страница 1 из 1
1