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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как обобразить список всех папок(+ скрытые) 
V
    Опции темы
Jr13san
Дата 1.6.2009, 08:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



Привет всем, кто на форуме.
Почему создатели контрола "Dir" не могли сделать так, чтобы он видел скрытые папки?:(

В списке контрола скрытые папки - невидимы. Если указать точный путь к скрытой папке, то она будет видима в контроле.
Мне нужно сделать так, чтобы мне не самому указывать путь к скрытой папке, а сам контрол видел и отображал ёё.
А вот как сделать так, я не знаю.

Нужно что-то простенькое, альтернативное, может быть с помощью какого-нибудь другого контрола можно отображать папки(все).
Я видел как отображаются папки в TreeView, но там было сделано через FSO. А мне бы не хотелось таскать лишнюю библиотеку...
У кого есть мысли, что можно сделать, пиште пожалуйста.
PM MAIL WWW ICQ   Вверх
Akina
Дата 1.6.2009, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454



Цитата(Jr13san @  1.6.2009,  09:33 Найти цитируемый пост)
Я видел как отображаются папки в TreeView, но там было сделано через FSO. А мне бы не хотелось таскать лишнюю библиотеку...

И какая же там "лишняя" библиотека, позвольте спросить?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Jr13san
Дата 1.6.2009, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



Подключите  "Microsoft Scripting Runtime"

Scrrun.dll - ребуемая dll.

Да и темболее (контролы + Treeview) = 1.5 Мб не лишку ли будет для проги(= меньше 1 Мб)?

Нужно что-то простенькое...
Мне на одном форуме тоже сказали, что нужно использовать Dir и с помощью неё писать свой список папок.. Я так подумал и даже проверил и решил, что не подойдёт.
PM MAIL WWW ICQ   Вверх
Akina
Дата 1.6.2009, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454



Цитата(Jr13san @  1.6.2009,  14:36 Найти цитируемый пост)
Подключите  "Microsoft Scripting Runtime"
Scrrun.dll - требуемая dll.

Ну вообще-то она есть в системе независимо от того, ставишь ты туда свою программу или нет.
Кстати, использовать FSO можно и без подключения библиотеки - просто как объект.

Цитата(Jr13san @  1.6.2009,  14:36 Найти цитируемый пост)
 (контролы + Treeview) = 1.5 Мб не лишку ли будет для проги(= меньше 1 Мб)?

А родная VB-шная либа на 2 метра почти тебя, значит, не смущает...

И вообще какая задача - чтобы работало или чтобы на дискету влезало?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Jr13san
Дата 1.6.2009, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



Akina, подожди-ка. Скажи какую библиотеку надо таксать с собой(Vb-шную)?. А то я не знаю пока ещё.
А на счёт FSO я согласен.

Цитата(Akina @  1.6.2009,  14:03 Найти цитируемый пост)
И вообще какая задача - чтобы работало или чтобы на дискету влезало? 

Чтобы работало быстро и правильно и как можно меньше занимала места. По моему все стремятся к этому...

У меня выход только один - использовать FSO.

Кстати вспомнил, один чел говорил по Excel, что если его использовать как Object в проге и если его на компе не будет установлено, то прога работать не будет. Вот почему я боюсь использовать всякие Api, дополнительные библиотеки, ну с контролами попроще...
PM MAIL WWW ICQ   Вверх
Akina
Дата 1.6.2009, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454



Цитата(Jr13san @  1.6.2009,  19:52 Найти цитируемый пост)
какую библиотеку надо таксать с собой(Vb-шную)?. 

%WINDOWS%\system32\msvbvm60.dll - впрочем в Windows XP и старше она входит в состав ОС... однако если на VB6 ставился сервис-пак - лучше прихватить эту библиотеку с собой.

Цитата(Jr13san @  1.6.2009,  19:52 Найти цитируемый пост)
Чтобы работало быстро и правильно и как можно меньше занимала места. По моему все стремятся к этому...

Правильно - всегда да.
Быстро - обычно да.
Поменьше - обычно нет.

Цитата(Jr13san @  1.6.2009,  19:52 Найти цитируемый пост)
один чел говорил по Excel, что если его использовать как Object в проге и если его на компе не будет установлено, то прога работать не будет

Конечно.

Цитата(Jr13san @  1.6.2009,  19:52 Найти цитируемый пост)
Вот почему я боюсь использовать всякие Api, дополнительные библиотеки, ну с контролами попроще... 

А программировать вообще не боишься? что за бред, право слово...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
neic
Дата 2.6.2009, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7



Код

Dim fso As New FileSystemObject, f As Folder
...
If fso.FolderExists("c:\111111") = True Then
      MsgBox "Папка существует", 64
Else
      MsgBox "Такой папки не существует", 64
End If
...


И усё собстна
PM MAIL WWW ICQ Skype   Вверх
I_Am_Rock
Дата 2.6.2009, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15



Цитата(Jr13san @  1.6.2009,  18:52 Найти цитируемый пост)
Вот почему я боюсь использовать всякие Api, дополнительные библиотеки, ну с контролами попроще...

Мне кажется наоборот -  с апи попроще, чем с контролами. 


Цитата(Akina @  1.6.2009,  14:03 Найти цитируемый пост)
Кстати, использовать FSO можно и без подключения библиотеки - просто как объект.

Правда? А как?
PM MAIL WWW   Вверх
neic
Дата 2.6.2009, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7



Цитата(I_Am_Rock @  2.6.2009,  13:11 Найти цитируемый пост)
Правда? А как? 

Читай мой пост. Если нужно могу страничку скинуть где описано что и как.

Цитата(I_Am_Rock @  2.6.2009,  13:11 Найти цитируемый пост)
Цитата(Jr13san @  1.6.2009,  18:52 Найти цитируемый пост)
Вот почему я боюсь использовать всякие Api, дополнительные библиотеки, ну с контролами попроще...

Мне кажется наоборот -  с апи попроще, чем с контролами. 

А мне кажется кому как удобнее =)
PM MAIL WWW ICQ Skype   Вверх
Jr13san
Дата 4.6.2009, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



Цитата(I_Am_Rock @  2.6.2009,  13:11 Найти цитируемый пост)
Мне кажется наоборот -  с апи попроще, чем с контролами. 

Дело в том, что у меня в проекте нет ни одной API. Да мне кажется с ними как-то не очень надёжно. Если можно написать в ручную, то лучше писать в ручную, а если надо сэкономить время размер и деньги, то можно воспользоваться API.

neic, Спасибо за код и помощь, но я уже сам разобрался. Всё получилось, что хотел.
I_Am_Rock, что-то давно не появлялся =). Спасибо.
Akina, Спасибо за поддержку, за инфу.
PM MAIL WWW ICQ   Вверх
Akina
Дата 4.6.2009, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454



Цитата(Jr13san @  4.6.2009,  15:00 Найти цитируемый пост)
Дело в том, что у меня в проекте нет ни одной API. Да мне кажется с ними как-то не очень надёжно. Если можно написать в ручную, то лучше писать в ручную, а если надо сэкономить время размер и деньги, то можно воспользоваться API.

А то, что твоё "вручную" всё равно будет работать через то же самое API, только после длинной цепи преобразований и согласований - это ничего?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
I_Am_Rock
Дата 6.6.2009, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15



Цитата(neic @  2.6.2009,  17:58 Найти цитируемый пост)
Читай мой пост. Если нужно могу страничку скинуть где описано что и как.

Ты имеешь ввиду это?
Код

Dim fso As New FileSystemObject

Но я тоже так раньше делал, но помимо этого еще через библиотеки подключал - думал, иначе не заработает.

Цитата(Jr13san @  4.6.2009,  14:00 Найти цитируемый пост)
I_Am_Rock, что-то давно не появлялся =). Спасибо.

Да, теперь реже здесь бываю. Но иногда заглядываю. smile Пожалуйста. 

Это сообщение отредактировал(а) I_Am_Rock - 6.6.2009, 12:34
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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