ListView и получение списка папок

@LordXaosa · Регистрация: 31.03.2009

Студворк — интернет-сервис помощи студентам

Есть серверная часть игры, надо написать утилиту, есть папка в директории сервера Accounts, в ней папки с логинами юзеров, мне надо получить listView со списком этих логинов и при этом обрезать лишний путь... тоесть что бы вместо C:\downloads\game\server\Accounts\LordXa osa было просто LordXaosa как мне забить ListView папками? я уже перепробовал пару способов (например тут и тут 2-й способ забивал только папку Accounts а 1-й вот:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim Result() 'тут сохраним список всех папок
Sub main()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder(CurDir+"\Accounts") 'с какого каталога пойдем
 
ReDim Result(1, 0)
WorkWithSubFolders TheFolder 'поехали
ReDim Preserve Result(1, UBound(Result, 2) - 1)
MsgBox "OK" 'приехали
End Sub
 
'обрабатывает поддиректории
Sub WorkWithSubFolders(ByVal AFolder)
  Dim MoreFolders, TempFolder
    ReDim Preserve Result(1, UBound(Result, 2) + 1)
    Result(0, UBound(Result, 2) - 1) = AFolder.Name
    Result(1, UBound(Result, 2) - 1) = AFolder.Path
  Set MoreFolders = AFolder.SubFolders
  For Each TempFolder In MoreFolders
    WorkWithSubFolders TempFolder
  Next
End Sub
 
Sub Command2_Click()
Call main
For i = 0 To UBound(Result) 'может неверная функция? определение кол-во эл-тов в массиве
ListView1.ListItems.Add i, "a", Result(i), 0, 0 'если делать так то выдает Script out of range
ListView1.ListItems.Item.ListSubItems.Add i, "a", Result(i), 0, 0 'а если так то Argument not optional на .Item
Next i
End Sub

@AlexKalinin · 30.10.2009, 18:51

Вот один из способов реализации Вашей задачи, не прибегая к помощи FileSystemObject, хотя там возможности куда богаче + работа программы быстрее

КОД

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Command2_Click()
    On Error GoTo AnyErr
    Dir1.Path = Text1.Text
    File1.Path = Dir1.Path
    'List1.List(0) = File1.List(0)
    List1.Clear
    List2.Clear
    Dim i As Integer
    'список файлов
    For i = 0 To File1.ListCount
        List1.List(i) = File1.List(i)
    Next i
    'список папок
    For i = 0 To Dir1.ListCount
        List2.List(i) = Dir1.List(i)
    Next i
    Exit Sub
AnyErr:
    MsgBox Err.Number & ":" & Err.Description, , "Attention!"
End Sub

@LordXaosa · 30.10.2009, 18:54 **[ТС]**

я не нашел получение папок в директории у вас, мне нужен автоматический поиск

@AlexKalinin · 30.10.2009, 19:06

Сообщение от LordXaosa

я не нашел получение папок в директории у вас, мне нужен автоматический поиск

наверное, я не правильно понял Ваш вопрос, пожалуйста поправьте меня, если дела обстоят не так:

Eсть папка "C:\downloads\game\server\Accounts\"
в данной папке находятся папки и файлы. Задача: не рекурсивно(т.е. не обрабатывая внутренние папки) получить список относительных (без пути) имен папок и вывести их куда-нибудь, например в ListBox

@LordXaosa · 30.10.2009, 19:28 **[ТС]**

да, именно так, но глядя в ваш код я не понял что такое Dir1.Path и File1.Path вы бы пояснили что к чему... насчет относительности это неважно, можно получить абсолютный путь и просто отбросить лишнее, это дело 1 строки...
я просто привык видеть чтото наподобии
string[] str = Directory.GetDirectories("C:/server/accounts"); (C#) тоесть 1 строка где сразу все ясно... есть чтото подобное в vb6?

@AlexKalinin · 30.10.2009, 20:13

Вот более документированный ихсодник + некая адаптация к Вашей ситуации. Я даже создал у себя папку "C:\downloads\game\server\Accounts\" и создал там файлов и папок кучу - все перечитались программой, как Вы и хотели - автоматически, еще можно по нажатию кнопки.

PS
У меня VB6

@LordXaosa · 30.10.2009, 20:49 **[ТС]**

Вот теперь понял, спасибо. А как теперь это можно переделать под ListView а не ListBox как у вас? Я просто незнаю как добавлять Items туда, в C# както проще это)

@AlexKalinin · 31.10.2009, 08:34

LordXaosa, ок, попробую

@LordXaosa · 31.10.2009, 10:05 **[ТС]**

я ставил sp6 для vb6, выберите в компонентах Microsoft Components (sp6) примерно так

@AlexKalinin · 31.10.2009, 10:36

Сообщение от LordXaosa

я ставил sp6 для vb6, выберите в компонентах Microsoft Components (sp6) примерно так

Да, уже нагуглил))
можете посмотреть в аттаче

@LordXaosa · 31.10.2009, 16:32 **[ТС]**

спасибо большое, именно то что нужно! но хочу поправить, последний цикл надо начинать с 0, а не 1 и до

Visual Basic
1
For i = 0 To Dir1.ListCount - 1

а не

Visual Basic
1
For i = 0 To Dir1.ListCount

как у вас, иначе добавляется пустая строка. Большое спасибо!
P.S. Кстати Вы сами пишите коменты или автоматика? подробно очень все описано и красиво, плюс Вам

@AlexKalinin · 31.10.2009, 16:41

спасибо большое, именно то что нужно!

пожалуйста

Кстати Вы сами пишите коменты или автоматика? подробно очень все описано и красиво, плюс Вам

сам пишу, позаимствовал стиль у Theo Zacharias (theo_yz@yahoo.com), автора программы VBPaint (аналог MSPaint).

Не по теме:

PS.
Вообще, последнее время стараюсь документировать свои исходники, так сказать - учусь работать в коллективе. Говорят в наше время это ценно... :-)

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@LordXaosa 34 / 21 / 2 Регистрация: 31.03.2009 Сообщений: 362
	30.10.2009, 18:54 [ТС]
	я не нашел получение папок в директории у вас, мне нужен автоматический поиск 0

@LordXaosa 34 / 21 / 2 Регистрация: 31.03.2009 Сообщений: 362
	30.10.2009, 19:28 [ТС]
	да, именно так, но глядя в ваш код я не понял что такое Dir1.Path и File1.Path вы бы пояснили что к чему... насчет относительности это неважно, можно получить абсолютный путь и просто отбросить лишнее, это дело 1 строки... я просто привык видеть чтото наподобии string[] str = Directory.GetDirectories("C:/server/accounts"); (C#) тоесть 1 строка где сразу все ясно... есть чтото подобное в vb6? 0

@LordXaosa 34 / 21 / 2 Регистрация: 31.03.2009 Сообщений: 362
	30.10.2009, 20:49 [ТС]
	Вот теперь понял, спасибо. А как теперь это можно переделать под ListView а не ListBox как у вас? Я просто незнаю как добавлять Items туда, в C# както проще это) 0

@AlexKalinin 32 / 32 / 0 Регистрация: 13.02.2009 Сообщений: 67
	31.10.2009, 08:34
	LordXaosa, ок, попробую 1

@LordXaosa 34 / 21 / 2 Регистрация: 31.03.2009 Сообщений: 362
	31.10.2009, 10:05 [ТС]
	я ставил sp6 для vb6, выберите в компонентах Microsoft Components (sp6) примерно так 0