Список файлов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Igor KLR
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 23.03.2003 (Вс) 10:14
Откуда: Odessa

Список файлов

Сообщение Igor KLR » 12.04.2003 (Сб) 13:01

Напишите примерчик получения фсех файлов и папок диска не используя win32 api :cry:

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 14.04.2003 (Пн) 9:46

Читай документацию про FileSystemObject.

Код: Выделить всё
Private Sub EnumFolders(Path As String, Optional where As Node)
On Error GoTo errhdl
Dim fso As FileSystemObject
Dim fsl As Folder
Dim fsl1 As Folder
Dim fsf1 As File
Dim ndx As Node
Dim ndx1 As Node
Set fso = New FileSystemObject
Set fsl = fso.GetFolder(Path & "\")
For Each fsl1 In fsl.SubFolders
Randomize
If where Is Nothing Then Set ndx = TreeView1.Nodes.Add(, tvwChild, Rnd(100000) & "key ", fsl1.Name) Else Set ndx = TreeView1.Nodes.Add(where.Key, tvwChild, Rnd(100000) & "key", fsl1.Name)
Call EnumFolders(Path & "\" & fsl1.Name, ndx)
Next fsl1
For Each fsf1 In fsl.Files
If fsf1.Name Like Text1.Text Then
If where Is Nothing Then Set ndx1 = TreeView1.Nodes.Add(, tvwChild, , fsf1.Name) Else Set ndx1 = TreeView1.Nodes.Add(where.Key, tvwChild, , fsf1.Name)
end If
Next fsf1
errhdl:
Select Case Err.Number
Case 76: MsgBox "Cannot read the drive " , vbCritical Or vbOKOnly, "Test"
End Select
Exit Sub
End Sub


Повесь на форму контрол Treeview и потом наслаждайся.[/code]


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 2

    TopList