поиск файлов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Ответить
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

поиск файлов

Сообщение Мамонт » 30.03.2005 (Ср) 15:23

Я не знаю но по форуму я ничего не нашёл! Мне надо произвести поиск например tmp файлов по диску но я непредставляю как??
Вернуться к началу
|kerish|
Постоялец
Постоялец
 
Сообщения: 831
Зарегистрирован: 22.10.2004 (Пт) 0:31

Сообщение |kerish| » 30.03.2005 (Ср) 15:56

Если пишешь очищалку диска, то учти еще и .bak файлы и .log файлы.
Осуществляется рекурсивным поиском.
Примеры на vbnet.ru валялись по-моему.
Вернуться к началу
Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 30.03.2005 (Ср) 15:57

Плохо искал :wink:
http://bbs.vbstreets.ru/viewtopic.php?t ... highlight=
Вернуться к началу
kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 30.03.2005 (Ср) 16:48

так этот код ищет только в указанной папке, а во вложенных.

или я чё-то недопонял.
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.
Вернуться к началу
kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 30.03.2005 (Ср) 16:59

:oops: :oops: :oops: :oops: :oops:

пардон, ступил.
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 30.03.2005 (Ср) 17:04

Фига! А я искал так долго....
Вернуться к началу
Alexander N. Samarin
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 397
Зарегистрирован: 05.03.2005 (Сб) 20:59
Откуда: Интернат 18 (СУНЦ МГУ), комната 214А, кровать посередине

Сообщение Alexander N. Samarin » 30.03.2005 (Ср) 17:17

Вариант на QBasic
Вложения
WhereIs.zip
(1.8 Кб) Скачиваний: 18
На это не смотрите! Это не подпись!!!!!!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 30.03.2005 (Ср) 19:16

чёто у меня не поучается! Вот у меня в текстбоксе 2 пути первый C:\1.tmp
C:\2.tmp
Так вот как мне удалить их сразу если онт в листбоксе? чтото у меня не получается!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 6:37

Ау! :!:
Вернуться к началу
GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 31.03.2005 (Чт) 7:20

Вот так:
Код: Выделить всё
For i = 0 To List1.ListCount -1
Kill List1.List(i)
next
Последний раз редактировалось GM 31.03.2005 (Чт) 7:38, всего редактировалось 1 раз.
الفيجوال بيسك الرابح
Вернуться к началу
alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 31.03.2005 (Чт) 7:31

ListCount-1
Lasciate ogni speranza, voi ch'entrate.
Вернуться к началу
kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 31.03.2005 (Чт) 9:33

лучше это делать с конца

Код: Выделить всё
for i=list1.listcount-1 step-1
kill list1.list(i)
next
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.
Вернуться к началу
Alexander N. Samarin
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 397
Зарегистрирован: 05.03.2005 (Сб) 20:59
Откуда: Интернат 18 (СУНЦ МГУ), комната 214А, кровать посередине

Сообщение Alexander N. Samarin » 31.03.2005 (Чт) 10:17

Код: Выделить всё
For i = 0 to list1.ListCount - 1
    kill list1.List(0)
Next
На это не смотрите! Это не подпись!!!!!!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 14:44

Удаляется только один файл а потом ошибка!!
Вернуться к началу
Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 31.03.2005 (Чт) 15:03

for i = 0 to list1.lsitcount-1
list1.listindex=i
kill app.path & "\" & list1.text
next[/code]
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 17:53

Ошибачка тут!
Код: Выделить всё
Kill App.path & "\" & List1.Text
Вернуться к началу
alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 31.03.2005 (Чт) 18:06

Какая ошибка? Если не считать подозрительного места с App.Path, ошибок нет.
Lasciate ogni speranza, voi ch'entrate.
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 18:38

ну я те говорю! Если брать прошлые коды то удаляется но только один потом ошибка а этот код ваще не работает!!
Вернуться к началу
Tarik
Агент Системы
Агент Системы
Аватара пользователя
 
Сообщения: 1222
Зарегистрирован: 03.01.2003 (Пт) 16:05
Откуда: Москва

Сообщение Tarik » 31.03.2005 (Чт) 20:52

Какая ошибка-то? :lol: Описание приведи!
Изображение

Ever tried? Ever failed? No matter. Try again! Fail again! Fail better!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 21:09

Файл нот фоунд!
Вернуться к началу
Tarik
Агент Системы
Агент Системы
Аватара пользователя
 
Сообщения: 1222
Зарегистрирован: 03.01.2003 (Пт) 16:05
Откуда: Москва

Сообщение Tarik » 31.03.2005 (Чт) 21:19

А... Дык это...
1. У тебя в листе полный путь до файла прописан? Если да, то вариант
Код: Выделить всё
For i = 0 To List1.ListCount -1
Kill List1.List(i)
next

вполне подходит.
2. А ты уверен, что эти файлы ЕСТЬ?
Изображение

Ever tried? Ever failed? No matter. Try again! Fail again! Fail better!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 31.03.2005 (Чт) 21:42

Конечно уверен!
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 01.04.2005 (Пт) 6:25

Tarik
Спасибо! Получилось!
Вернуться к началу
GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 01.04.2005 (Пт) 7:19

for i=list1.listcount-1 step-1
kill list1.list(i)
next


For i = 0 to list1.ListCount - 1
kill list1.List(0)
Next

Ну я ж не со списка удаляю. :lol:
الفيجوال بيسك الرابح
Вернуться к началу
Ответить

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing-бот и гости: 182

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Time : 0.104s | 17 Queries | GZIP : On
   TopList