| Вопрос: Как получить содержимое директории | Добавлено: 10.02.05 11:46 |
Автор вопроса:  rx | Web-сайт: erix.times.lv | ICQ: 310731115 |
|
Как получить содержимое директории - фаили и папки которие находитса там ???
я имел в виду в VB ;) подскажите API функцию или другои метод - толко не совсем мазахистическии, типа използуя File1 ;) если есть пример - даите плз ссилку |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  egeht Вопросов: 2 Ответов: 4 |
Профиль | | #1 | Добавлено: 10.02.05 12:31 |
|
FileSystemObject.
На страничке http://rusproject.narod.ru/guide.htm есть ссылка на help. Кратко - создаешь объект FileSystemObject, у него получаешь объект нужной дирктории, у этого объекта есть коллекция файлов - бежишь по ней и получаешь список файлов. |
||
|
Номер ответа: 2 Автор ответа:  slimyo ICQ: 215451886 Вопросов: 14 Ответов: 26 |
Web-сайт: Профиль | | #2 | Добавлено: 10.02.05 12:31 |
|
Попробуй функцию DIR
|
||
|
Номер ответа: 3 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #3 | Добавлено: 10.02.05 12:46 |
|
Option Explicit
Private Const MAX_PATH = 260 Private Const INVALID_HANDLE_VALUE = -1 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Private Sub InterateObject(Source As String)  im objName As String
im hSearch As Long
im WFD As WIN32_FIND_DATA
im Cont As Integer
On Error Resume Next Cont = True hSearch = FindFirstFile(Source & "*", WFD) If hSearch <> INVALID_HANDLE_VALUE Then o While Cont
objName = Left(WFD.cFileName, InStr(WFD.cFileName, Chr(0)) - 1) If objName <> "." And objName <> ".." Then If (GetAttr(Source & objName) > 7 And GetAttr(Source & objName) < 32) _ Or GetAttr(Source & objName) > 39 Then List1.AddItem Source & objName & "\" InterateObject Source & objName & "\" Else List1.AddItem Source & objName & "\" End If End If Cont = FindNextFile(hSearch, WFD) Loop Cont = FindClose(hSearch) End If End Sub Private Sub Command1_Click() InterateObject "C:\" End Sub |
||
|
Номер ответа: 4 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 10.02.05 23:06 |
| Срочно в поиск, или на пару страничек назад! | ||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 11.02.05 00:10 |
|
Жалко, что нет возможности закреплять тему, тогда бы можно было бы создать тему, которая была бы всегда вверху "FAQ. Посмотрите сюда, возможно ваши вопросы здесь уже задавались". А внутре:
Что лучше, Delphi или VB6: http://vbnet.ru/forum/show.aspx?id=xxxx; http://vbnet.ru/forum/show.aspx?id=xxxy; http://vbnet.ru/forum/show.aspx?id=xxxz Как поместить иконку в трей: ... А то каждый раз отсылать в поиск как-то нехорошо, имхо. |
||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 11.02.05 01:01 |
Каждый - нет, но листа два назад - вполне возможно 
|
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 11.02.05 01:56 |
| Все равно обидно. И форум засирается, а он и так таймауты все время выдает, с нагрузкой не справляется... | ||
Страница: 1 |