перебор папок и файлов / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перебор папок и файлов

4 сообщений из 4, страница 1 из 1

перебор папок и файлов

#35833489

Kasher

Участник

Откуда: Подмосковье

Сообщения: 173

Рейтинг: 0 / 0

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

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

num = Me.fld_NumDir.Text
FName = Dir$("C:\MSBAuto\new\*.*")
Do While FName <> ""

   ' создание подпапки в директории
sbor = filpath & "\" & num
num = num +  1 
MkDir(sbor)

sbor2 = sbor & "\" & FName
FileCopy("C:\MSBAuto\new\" & FName, sbor2)
FName = Dir$()
Loop

...

Рейтинг:

0 / 0

24.02.2009, 10:47

| Ответить | Цитировать | Написать

перебор папок и файлов

#35834872

slope

Гость

попробуй поиграть с элементами dirlistbox, filelistbox. думаю должно получиться

...

Рейтинг:

0 / 0

24.02.2009, 17:52

| Ответить | Цитировать | Написать

перебор папок и файлов

#35834945

BION

Участник

Откуда: дровишки?

Сообщения: 328

Рейтинг: 0 / 0

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

Давича был у нас разговорчик по этому поводу, вот тут: http://bbs.vbstreets.ru/viewtopic.php?f=1&t=37541

...

Рейтинг:

0 / 0

24.02.2009, 18:11

| Ответить | Цитировать | Написать

перебор папок и файлов

#35835656

klen_

Участник

Сообщения: 2 198

Рейтинг: 0 / 0

www.sql.ru/forum...и здесь есть

...

Рейтинг:

0 / 0

25.02.2009, 07:25

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перебор папок и файлов

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=35833489&tid=2161313]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	36ms
get topic data:	9ms
get forum data:	2ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	217ms

total:	323ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы