Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> папки на диске, список папок на диске 
:(
    Опции темы
Baha_Ahmed
Дата 15.2.2010, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Как узнать список папок на диске. Xочу создать массив с путями к этим папкам, допустим я хочу узнать какие папки есть на диске D? smile 
PM MAIL   Вверх
Naghual
Дата 15.2.2010, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Команда DIR либо через FSO


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Baha_Ahmed
Дата 15.2.2010, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Цитата(Naghual @ 15.2.2010,  11:47)
Команда DIR либо через FSO

Емкий ответ. Спасибо!!!!
вот есть код к этому
Код


path="d:\"

If Right$(Path, 1) <> "\" Then
    Path = Path & "\"
End If

sFile = Dir(Path & "*.*", vbDirectory)
Do While Len(sFile)
    If sFile <> "." And sFile <> ".." Then
        If GetAttr(Path & sFile) And vbDirectory Then
             List1.AddItem Path & sFile
            'Debug.Print Path & sFile
        End If
    End If
    sFile = Dir
Loop


только вот он не видит скрытые папки.

а вот тут список файлов на диске
Код

Dim FSO As New FileSystemObject
Dim sFile As File

        For Each sFile In FSO.GetFolder(Path & "\").Files
            If UCase(FSO.GetExtensionName(sFile)) = "AVI" _
            Or UCase(FSO.GetExtensionName(sFile)) = "TXT" _
             Or UCase(FSO.GetExtensionName(sFile)) = "MPG" _
             Or UCase(FSO.GetExtensionName(sFile)) = "JPG" _
             Or UCase(FSO.GetExtensionName(sFile)) = "XLS" _
             Or UCase(FSO.GetExtensionName(sFile)) = "DOCX" _
             Or UCase(FSO.GetExtensionName(sFile)) = "3GP" _
             Or UCase(FSO.GetExtensionName(sFile)) = "CHM" _
             Or UCase(FSO.GetExtensionName(sFile)) = "MDB" _
             Or UCase(FSO.GetExtensionName(sFile)) = "MDS" _
            Or UCase(FSO.GetExtensionName(sFile)) = "DOC" Then
                SetAttr Path & sFile.Name, vbNormal
                List1.AddItem Path & sFile.Name
            End If
       Next sFile


видны все файлы и скрытые и нет.
Помогите:
1 как "увидеть" скрытые папки (первый код)
2 как в коде со списком для файлов(второй код) не указывать расширения, а что был какой нибудь  шаблон типа "*.*", то есть все файлы.
PM MAIL   Вверх
Akina
Дата 15.2.2010, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Baha_Ahmed @  15.2.2010,  19:49 Найти цитируемый пост)
как "увидеть" скрытые папки (первый код)

Прочитать справку по функции, обратив особое внимание на второй параметр.

Цитата(Baha_Ahmed @  15.2.2010,  19:49 Найти цитируемый пост)
как в коде со списком для файлов(второй код) не указывать расширения, а что был какой нибудь  шаблон типа "*.*", то есть все файлы.

Убрать этот длинный IF.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Baha_Ahmed
Дата 15.2.2010, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Цитата(Akina @ 15.2.2010,  19:07)
обратив особое внимание на второй параметр.

шаблон типа "*.*", то есть все файлы.

Убрать этот длинный IF.[/QUOTE]
на второй параметр обратил спасибо все работает, а вот шаблон что то.... не хочет, помоги те!!! smile 
PM MAIL   Вверх
Akina
Дата 15.2.2010, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Baha_Ahmed @  15.2.2010,  22:09 Найти цитируемый пост)
а вот шаблон что то.... не хочет, помоги те!!!   

Оставь строки номер: 1, 2, 4, 16, 17, 19, остальные удали.

Добавлено через 1 минуту и 4 секунды
Впрочем, строка 16 тоже не особо нужна ПО СМЫСЛУ КОДА =- но вдруг она нужна ещё для чего-то...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 16.2.2010, 01:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Цитата(Baha_Ahmed @  15.2.2010,  18:49 Найти цитируемый пост)
Емкий ответ. Спасибо!!!!

Пожалуйста


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Baha_Ahmed
Дата 19.2.2010, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Цитата(Akina @ 15.2.2010,  22:43)
Цитата(Baha_Ahmed @  15.2.2010,  22:09 Найти цитируемый пост)
а вот шаблон что то.... не хочет, помоги те!!!   

Оставь строки номер: 1, 2, 4, 16, 17, 19, остальные удали.

Добавлено @ 22:44
Впрочем, строка 16 тоже не особо нужна ПО СМЫСЛУ КОДА =- но вдруг она нужна ещё для чего-то...

Спасибо за совет, работает все файлы видны т.к. я же указывал их через "/", да еще код под №16 нужет т.к. я когда удаляю все эти файлы-они не удаляются если их аттрибут не поменять. Еще раз спасибо!!!!! Код стал быстрее работать.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2075 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.