|
Удаление файлов из папок
|
|
| Dordex | Дата: Четверг, 05 Июня 2008, 20:54 | Сообщение # 1 |
Необукер
Группа: Проверенные
Сообщений: 533
Репутация: 16
Награды: 9
Статус: Offline
| Допустим есть сетевая папка: F:\Temp И в этой папки, папки названий отделов фирмы,
а в этих папках папки с фамилиями сотрудников,
а внутри этих всех папок файлы с разными расширениями. Так вот надо чтобы при нажатии на кнопку файлы удалялись,
а папки оставались.
|
| |
| |
| Alex3A | Дата: Четверг, 05 Июня 2008, 23:06 | Сообщение # 2 |
Друг клуба ММВ
Группа: Проверенные
Сообщений: 2646
Репутация: 39
Награды: 11
Статус: Offline
| Quote (Омар) Так вот надо чтобы при нажатии на кнопку файлы удалялись
Посмотри, на форуме уже обсуждалась тема, как отличить папку от файла, а что с ними делать думаю ты расберешся.Добавлено (05 Июнь 2008, 23:06)
---------------------------------------------
вроде где то здесь
|
| |
| |
| YURIY | Дата: Четверг, 05 Июня 2008, 23:14 | Сообщение # 3 |
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Quote (Alex3A) вроде где то здесь Без лишнего мусора  http://mmbuilder.ru/forum/26-671-1
Вечная память Андрею Сергееву!
|
| |
| |
| Dordex | Дата: Четверг, 05 Июня 2008, 23:36 | Сообщение # 4 |
|
Необукер
Группа: Проверенные
Сообщений: 533
Репутация: 16
Награды: 9
Статус: Offline
| Короче я нашёл то, что мне надо (это проект AS-MASTER'а) Поиск временных файлов. Только как сделать чтобы он искал ещё и в подпапках. Вот так он ищет только в той папке которую я выбрал, но те папки которые
внутри этой папки которую я выбрал он их игнорирует: Code BrowseForFolder("Укажите папку, где искать:","")
seldir$=CBK_OpenDir
If (seldir$ <> '') Then
** Если папка пользователем указана, тогда:
text$=' '
LoadText("Text","text$")
** Показываем блокирующую область для предотвращения нажатий на кнопки:
LoadText("Status","Выполняется поиск. Пожалуйста, ждите...")
Show("lock")
SearchForFiles("seldir$","EXT$")
If (CBK_NumInList>0) Then
ListBoxAddItem("SongList","RESET")
ListBoxAddItem("SongList","<List>")
ListBoxGetItems("SongList","Items$,Num$,#,Num")
ListBoxAddItem("SongList","RESET")
For i=1 To Num
Items$[i]=GetArrayItem(Items$,#,i)
ListBoxAddItem("SongList","STRING:Items[i]$")
Refresh("")
Next i
ListBoxGetItems("SongList","<List>")
ListBoxGetItems("SongList","Item$,NumItem$,#,NumItem")
Else
ListBoxAddItem("SongList","RESET")
Num=0
End
** Скрываем блокирующую область
Hide("lock")
Refresh("")
Else
** Если папка пользователем не выбрана - возврат:
Return()
End
** Сбрасываем значение seldir$:
seldir$=''
** Выводим мессагу:
mess$='Поиск завершен. '+CHR(10)+CHR(13)+'Всего найдено файлов: '+CHAR(Num)
Message("mess$","")
** Выводим текст:
SetObjectParam("Text","TEXTCOLOR=0,0,255")
text$='Всего найдено файлов: '+CHAR(Num)
If (Num=0) Then
text$='Извините, по данному запросу ничего не найдено.'
End
LoadText("Text","text$")
Сообщение отредактировал Омар - Четверг, 05 Июня 2008, 23:39 |
| |
| |
| as-master | Дата: Четверг, 05 Июня 2008, 23:57 | Сообщение # 5 |
Разводящий
Группа: Модераторы
Сообщений: 2337
Репутация: 101
Награды: 5
Статус: Offline
| Quote (Омар) Так вот надо чтобы при нажатии на кнопку файлы удалялись, а папки оставались. Rush сделал модуль, очень навороченный, который удаляет и файлы и папки, и подпапки в папках. Это лишь одна из многих его функций. Модуль называется fscmd101.com, вот его основные функции: 1. Удаление файлов
2. Удаление папок со всем содержимым
3. Создание папок с неограниченными вложениями
4. Перемещение и переименование файлов и папок
5. Установка атрибутов папки или файла
6. Создание ярлыков с добрым десятком различных параметров
7. Создание интернет-ссылки
8. Создание и удаление записей в реестре - разделов и ключей любого типа: string, binary, dword.
9. Возможность сохранения в текстовый файл возвращаемых значений (например, значения ключа реестра)
10. Получение информации о файле или папке И всё это при размере модуля 8 килобайт! http://www.mmbuilder.ru/modules_rush.html
Да пребудет с вами ММВ!
|
| |
| |
| Dordex | Дата: Пятница, 06 Июня 2008, 13:33 | Сообщение # 6 |
|
Необукер
Группа: Проверенные
Сообщений: 533
Репутация: 16
Награды: 9
Статус: Offline
| Как сделать чтобы программа искала не заданные мною расширение, а всё подряд: Code ext$[1]=',tmp'
ext$[2]=',temp'
ext$[3]=',chk'
ext$[4]=',old'
ext$[5]=',gid'
ext$[6]=',wbk'
ext$[7]=',fts'
ext$[8]=',$$$'
ext$[9]=',err'
ext$[10]=',---'
ext$[11]=',??$'
ext$[12]=',$??'
ext$[13]=',?$?'
ext$[14]=',_mp'
ext$[15]=',dmp'
ext$[16]=',prv'
ext$[17]=',$db'
ext$[18]=',db$'
ext$[19]=',_dd'
ext$[20]=',___'
For e=1 To 20
EXT$=EXT$+ext$[e]
Next e Добавлено (06 Июнь 2008, 13:30)
---------------------------------------------
С командой удаления файлов модуль не понимает подпапки Добавлено (06 Июнь 2008, 13:33)
---------------------------------------------
Всё полностью разобрался вопросов больше нет
Сообщение отредактировал Омар - Пятница, 06 Июня 2008, 13:28 |
| |
| |
| Alex3A | Дата: Пятница, 06 Июня 2008, 13:49 | Сообщение # 7 |
|
Друг клуба ММВ
Группа: Проверенные
Сообщений: 2646
Репутация: 39
Награды: 11
Статус: Offline
| Quote (Омар) Как сделать чтобы программа искала не заданные мною расширение, а всё подряд:
*.*
Quote (Омар) С командой удаления файлов модуль не понимает подпапки
Нет подпапок - есть пути!
Quote (Омар) Всё полностью разобрался вопросов больше нет
Я не сомневался!
|
| |
| |
Все права защищены
