Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
Форум MMB » Всё о программе Multimedia Builder » Сценарии в MMB » Проблема с удалением файлов
Проблема с удалением файлов
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
Искусственный интеллект - ничто по сравнению с естественной глупостью.
 
Форум MMB » Всё о программе Multimedia Builder » Сценарии в MMB » Проблема с удалением файлов
  • Страница 1 из 1
  • 1
Поиск: