ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
10 сообщений из 10, страница 1 из 1
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765105
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Цитирую: Для того, чтобы объектная модель FileSystemObject была полностью (не только
объекты, их свойства и методы, но и константы, определенные в перечислимых
типах этой модели) доступна приложению, рекомендуется включить в проект
ссылку на соответствующую библиотеку Microsoft Scripting Runtime

Прочитал очень дельную информацию по FSO. Согласился. Подключил.


Беру макрос следующего содержания, для выведения имен всех дисков
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
 Sub ShowDriveList()
On Error Resume Next
Dim fs As FileSystemObject, d As Drive, dc As Collection, _
s As String, n As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub



Убираю: d As Drive, dc As Collection, заменяя на

Код: vbnet
1.
Dim d, ds



И все работает...

Какие библиотеки можно подключить чтобы строго описывать эти типы переменных?
...
Рейтинг: 0 / 0
22.04.2012, 13:38
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765120
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Правильно - проигнорируем все ошибки, а потом думаем, а где же ошибка?

Код: vbnet
1.
Dim dc As Drives
...
Рейтинг: 0 / 0
22.04.2012, 13:57
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765234
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Да я знаете ли заметил где ошибка,
закоментировать On Error Resume Next - не проблема...
А вот как корректно ввести тип переменных?
...
Рейтинг: 0 / 0
22.04.2012, 16:40
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765235
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я же дал ответ
...
Рейтинг: 0 / 0
22.04.2012, 16:42
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765407
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Извиняюсь, не врубился сразу... Так с этим понятно...
Но без обработки ошибок на моем компе все же не работает...
...
Рейтинг: 0 / 0
22.04.2012, 20:23
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765600
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
не работает небось получение VolumeName для дискеты?

Не было в твоем коде никакой обработки ошибок. Было только игнорирование любых ошибок, что приводило к невозможности ее отладить. Нужно корректно обработать ошибку, четко понимая, в каких случаях она возникнет, и что нужно получить, если она возникла
...
Рейтинг: 0 / 0
23.04.2012, 01:08
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37765683
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Точно,
n = d.VolumeName - дает ошибку 71 и пишет что диск не читается. а вот какой диск?
Если учитывать что первым обрабатывается дисковод A, то получается что именно дискета...

Вот, прочитал справку, она гласит:

Эта ошибка имеет следующие причины и решения:
Диск отсутствует в указанном устройстве, поместите диск в дисковод и повторите операцию.
Открыта дверь привода указанного диска. Закройте дверь диска и повторите операцию.

Сейчас тоже самое попробую сделать с DVD... ручками пропустив первую ошибку...

Точно так и для дискеты и для DVD - ошибка одна и та же... можно в обработчике ошибок присвоить диску какую-нибудь надпись типа: отсутствует диск...

Я знаю что такое обработка ошибок, но к сожалению ленюсь ею пользоваться ( надо самого себя поругать на днях)... и самое главное нету у меня полного списка ошибок...

Спасибо.
...
Рейтинг: 0 / 0
23.04.2012, 09:03
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37769361
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Dan-K, кушать подано
...
Рейтинг: 0 / 0
24.04.2012, 20:55
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #37776620
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Ай спасибо...
...
Рейтинг: 0 / 0
29.04.2012, 10:31
| Ответить | Цитировать | Написать  
Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
    #38123341
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
natalitvinenko
Участник
Dan-K, спасибо за pdf -учебник :-)
...
Рейтинг: 0 / 0
24.01.2013, 15:24
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Dim d As Drive, dc As Collection - типы переменных требуют библиотеку?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2175062]:
 0ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 343ms
total:  492ms
созд. / загр.: 492ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]