Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> поиск файлов по маске и их копирование, помогите пожалуйста 
:(
    Опции темы
xrod
Дата 11.2.2014, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.2.2014

Репутация: нет
Всего: нет
Помогите пожалуйста написать процедуру или функцию, для поиска файлов по маске *.* для указываемого каталога, включая подкаталоги, с дальнейшим копированием в отдельную директорию. Что то вообще никак допетрить не могу(
PM MAIL   Вверх
Akina
Дата 11.2.2014, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453
Нафига искать файлы, если можно сразу копировать весь каталог?

В любом случае есть смысл для решения задачи использовать FileSystemObject.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
xrod
Дата 11.2.2014, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.2.2014

Репутация: нет
Всего: нет
Простите, забыл написать, что мне нужно использовать данную процедуру\функцию без обращения к форме(в смысле  лишних кликов)
PM MAIL   Вверх
Akina
Дата 11.2.2014, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453
Цитата(Akina @  11.2.2014,  19:14 Найти цитируемый пост)
В любом случае 




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
xrod
Дата 11.2.2014, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.2.2014

Репутация: нет
Всего: нет
тогда, если не сложно, не могли бы Вы уточнить как это сделать, с учетом того, что *.* могут заменяться на конкретные файлы? буду очень признателен, я новичок в программировании.
PM MAIL   Вверх
TheTrick
Дата 11.2.2014, 19:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Atmeg'щик



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 5.9.2013
Где: Астрахань

Репутация: 1
Всего: 1
Не понял тебя толком, но можно использовать Dir для поиска. А вообще правильней делать через FSO или WinApi, т.к. стандартный DIR не работает с юникодными именами.
PM MAIL WWW Skype   Вверх
xrod
Дата 11.2.2014, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.2.2014

Репутация: нет
Всего: нет
ребят, всем спасибо, буду ковырять инет, тау уау понял, что с кодом никто не поможет. Но спасибо за подсказки, теперь хоть толчок есть
PM MAIL   Вверх
Akina
Дата 11.2.2014, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453
Цитата(xrod @ 11.2.2014,  21:35)
буду ковырять инет

А использовать поиск по форуму религия не позволяет? термин дан...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Kallipsa
Дата 14.2.2014, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.2.2014

Репутация: нет
Всего: нет

Модератор: Сообщение скрыто.
PM MAIL   Вверх
alex77755
Дата 15.2.2014, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 18.4.2009

Репутация: нет
Всего: нет
Код

Option Explicit

Private Sub Комманда1_Click()
 Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("D:\")
End Sub

 Sub Search(Fold As Object)
 Dim SubFold As Object, Fil As Object
   Debug.Print Fold
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
        Debug.Print Fil
   Next Fil
   Exit Sub
ErrHandle:
   MsgBox "Нет допуска к папке """ & Fold.Path & """"
   Err.Clear
End Sub


Добавлено через 55 секунд
Фильтр сам прикрутишь
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1330 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.