Как получить доступ ко всем файлам в папке / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

Как получить доступ ко всем файлам в папке

#33266540

Farkhod

Участник

Откуда: Куала-Лумпур

Сообщения: 582

Рейтинг: 0 / 0

есть например папка C:\Temp. Тама лежат текстовые файлы. Как через VB поочередно прочитать все эти файлы? ну типа что то:

Код: plaintext

For each File in "C:\temp"

Спасибо.

...

Рейтинг:

0 / 0

13.09.2005, 14:57:53

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

Как получить доступ ко всем файлам в папке

#33266562

Melkiades

Участник

Откуда: Москва

Сообщения: 1 459

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set fld = fso.GetFolder(SourcePath)

    For Each fil In fld.Files
    ....
    Next

...

Рейтинг:

0 / 0

13.09.2005, 15:02:32

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

Как получить доступ ко всем файлам в папке

#33266574

AndreyMp

Участник

Откуда: Майкоп

Сообщения: 593

Рейтинг: 0 / 0

Свойство Files
objFolder.Files
Содержит ссылку на объект Files, содержащее все объекты File, находящиеся в данной папке. Только для чтения

Пример
' Пример получения объекта Files
Function ShowFileList(folderspec)
Dim fso, fld, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(folderspec)
Set fc = fld.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
ShowFileList = s

End Function

© 2001 А.Климов
Русский_Проект

...

Рейтинг:

0 / 0

13.09.2005, 15:05:25

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

Как получить доступ ко всем файлам в папке

#33266627

Farkhod

Участник

Откуда: Куала-Лумпур

Сообщения: 582

Рейтинг: 0 / 0

всем ОГРОМНОЕ СПАСИБО.

...

Рейтинг:

0 / 0

13.09.2005, 15:15:48

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

Как получить доступ ко всем файлам в папке

#33266727

Пользователь2

Гость

Проще.

Код: plaintext

1.
2.
3.
4.
5.
6.

    Dim strFile As String
    
    strFile = Dir("C:\Temp\")
    Do Until strFile = ""
        Debug.Print strFile
        strFile = Dir
    Loop

...

Рейтинг:

0 / 0

13.09.2005, 15:42:07

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

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

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

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

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

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

start [/forum/topic.php?fid=60&gotonew=1&tid=2167201]:	0ms
get settings:	7ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	7ms
get first new msg:	26ms
get forum data:	2ms
get page messages:	32ms
get tp. blocked users:	1ms
others:	195ms

total:	327ms

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