Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить доступ ко всем файлам в папке / 5 сообщений из 5, страница 1 из 1
13.09.2005, 14:57:53
    #33266540
Farkhod
Farkhod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить доступ ко всем файлам в папке
есть например папка C:\Temp. Тама лежат текстовые файлы. Как через VB поочередно прочитать все эти файлы? ну типа что то:
Код: plaintext
For each File in "C:\temp"
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2005, 15:02:32
    #33266562
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить доступ ко всем файлам в папке
Код: 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:05:25
    #33266574
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить доступ ко всем файлам в папке
Свойство 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:15:48
    #33266627
Farkhod
Farkhod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить доступ ко всем файлам в папке
всем ОГРОМНОЕ СПАСИБО.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2005, 15:42:07
    #33266727
Пользователь2
Пользователь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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как получить доступ ко всем файлам в папке / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 347ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167201]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 227ms
total:  347ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]