Проблема с FSO

[lytgeygen]

Доброго времени суток.

Хочеться узнать как сделать так чтобы работала это (FSO)

Когда я пытаюсь написать

Dim fso As New FileSystemObject

то у меня не показывает FileSystemObject



как это исправить ?

[Lumen]

Project->References и поставить галочку напротив Microsoft Scripting Runtime

[Da$aD]

И еще нажать ОК))

[VisualProg]

Dim FSO As Object
Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

- Если совсем лень...

[Змей]

Цитата lytgeygen @ 25.04.09, 11:37

As New

вот только хорошие книги настоятельно не рекомендуют использовать As New — в сложном коде это чревато тем, что ты не сможешь точно понять, где создаётся объект... а самое главное, он может быть создан случайно, при попытке проверить его значение — что приведёт к логической ошибке в коде.

ПисАть
Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject

совсем не сложнее, зато ты явно знаешь, когда и где создаётся объект.

Цитата VisualProg @ 27.04.09, 18:44

Если совсем лень...

это не "если мсовсем лень", а позднее связывание. Неудобно тем, что среда не поддерживает автокомплит для таких объектов, зато имеет огромный плюс: в случае отсутствия нужной библиотеки, программа не упадёт при попытке запуска, а нормально запустится, дойдёт до попытки создать объект и сгененирует ошибку, которую можно перехватить обычным On Error — например, чтоб сообщить юзеру, где он должен взять недостающую длл`ку

[ANDLL]

Цитата Змей @ 27.04.09, 20:17

плюс: в случае отсутствия нужной библиотеки, программа не упадёт при попытке запуска, а нормально запустится, дойдёт до попытки создать объект и сгененирует ошибку, которую можно перехватить обычным On Error — например, чтоб сообщить юзеру, где он должен взять недостающую длл`ку

Аналогично и в случае с new

[VisualProg]

Цитата Змей @ 27.04.09, 20:17

перехватить обычным On Error

Блин! А я то думал! Вот так всегда - учишся, подключаешь по 10 библиотек для отслеживания всех возможных ошибок, а тут когда проделанна годовая работа - "On Error" оказывается не просто НЕ частью Commondialog, это вообще самостоятельная функция, которую можно впихнуть в процедуру для отслеживания ошибок! lytgeygen чтож вы ету тему год назад не подняли?...

[B.V.]

Цитата VisualProg @ 28.04.09, 08:24

"On Error" оказывается не просто НЕ частью Commondialog, это вообще самостоятельная функция

Я тебя еще больше удивлю -- On Error не функция, это конструкция языка.

[Da$aD]

VisualProg, если ты не заметил, "On Error" по дефолту синеньким выделяется)

[Змей]

Цитата ANDLL @ 27.04.09, 20:40

Аналогично и в случае с new

не совсем.


Если библиотека подключена к проекту через References — запуск программы в системе, где эта библиотека не установлена, вызовет неустранимую ошибку СРАЗУ, ещё до начала выполнения кода программы.
Если же библиотека не подключена в References, а объекты создаются через CreateObject или GetObject — программа нормально запустится, а ошибка будет в момент попытки создания объекта.

например, так:

Private useCAPI As Boolean 'переменная уровня модуля
Private Sub Class_Initialize()
 On Error Resume Next
 Set cao = CreateObject("CAPICOM.Utilities")
 If cao Is Nothing Then
  'библиотека микрософт криптоАПИ не установлена, будем юзать медленные самодельные функции.
  useCAPI = False
 Else
  'всё нормально, можно юзать криптоАПИ.
  useCAPI = True
 End If
End Sub

или так:

Private Sub Class_Initialize()
 On Error GoTo errh
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set shl = CreateObject("Shell.application")
 Set wsc = CreateObject("WScript.Shell")
 Exit Sub
errh:
 MsgBox "Не удалось подключить одну из системных библиотек. Ваша система повреждена или не соответствует требованиям программы."
 End
End Sub

[nash]

Цитата Змей @ 29.04.09, 11:28

Если библиотека подключена к проекту через References — запуск программы в системе, где эта библиотека не установлена, вызовет неустранимую ошибку СРАЗУ, ещё до начала выполнения кода программы.

офигеть какие новости.

[Змей]

nash, иди нафиг Я не для тебя говорю, а для тех, кому это и правда новость. И таких людей немало.

M

Кстати, nash, я обязан обратить ваше внимание на тот факт, что своим постом #11 вы грубо нарушаете Правила, п.5

[nash]

Цитата Змей @ 29.04.09, 13:31

кому это и правда новость

да потому что это не новость, а фигня (неправда).

[Змей]

.

Добавлено 29.04.09, 15:01

Цитата nash @ 29.04.09, 14:21

неправда

дааа???

батенька, в своём стремлении доказать кому-то свою крутизну вы уже совсем заврались.

Если программа скомпилирована с заявленной в References библиотекой, то на машине, где этой библиотеки нет, она не запустится СОВСЕМ.

nash, у меня и раньше были сомнения в вашей компетентности, но теперь вы их окончательно развеяли. Теперь я знаю точно: Вы некомпетентны.

сорри за оффтоп.

[B.V.]

Цитата nash @ 29.04.09, 14:21

да потому что это не новость, а фигня (неправда).

Эх, моя невнимательность. Мне чего-то показалось, что речь идет о Components. Хотя, и в этом случае, теоретически, можно выйти из положения, установив стартовой Sub Main.

Цитата Змей @ 29.04.09, 14:46

злостный оффтоп, п5, плюс личная переписка, п9.

Злостный оффтоп пошел от тебя, как и личная переписка. nash высказался по теме, и он прав

[Змей]

Цитата B.V. @ 29.04.09, 15:16

А явного нарушения правил не было

было. #11 — бессодержательный и неинформативный пост, направленный лично против меня. Все знают о той нездоровой неприязни, котороую питает ко мне товарисч насх, и которая заставляет его вступать со мной в спор всякий раз, как он видит мой пост...

Цитата B.V. @ 29.04.09, 15:16

Злостный оффтоп пошел от тебя

мой оффтоп был не злостный, а был лишь вполне естественным развитием темы в рамках сабжа топика и раздела.

Цитата B.V. @ 29.04.09, 15:16

и личная переписка

пошла от насха, #11

Цитата B.V. @ 29.04.09, 15:16

nash высказался по теме

если я оффтоплю, то ответ мне не может быть "в тему", как ни старайся

Цитата B.V. @ 29.04.09, 15:16

и он прав

он не прав.

[nash]

Цитата Змей @ 29.04.09, 11:28

вызовет неустранимую ошибку СРАЗУ, ещё до начала выполнения кода программы

2BV: Особенно порадовало.

2Змей: Да какая неприязнь? Мне по-фигу. Трепаться просто надо меньше. Займись делом и все устаканится.

[B.V.]

Цитата Змей @ 29.04.09, 15:43

#11 — бессодержательный и неинформативный пост, направленный лично против меня.

#11 содержательный пост, единственный его недостаток -- неоднозначность.

Цитата Змей @ 29.04.09, 15:43

мой оффтоп был не злостный, а был лишь вполне естественным развитием темы в рамках сабжа топика и раздела

С каких пор посыл "нафиг" считается "вполне естественным развитием темы"?

Цитата Змей @ 29.04.09, 15:43

он не прав.

http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/Components/reference.mspx
Освежи память. Раннее и позднее связывание в VB отличаются лишь типами и способом объявления переменных

Цитата Змей @ 29.04.09, 15:43

Думаю, лучше сделать так

Нет, лучше сделать так: я оставляю все как есть, ты осознаешь свое невежество и публично извиняешься, и не только за невежество, но и за злоупотребление властью. В противном случае буду вынужден принять меры

[Змей]

Цитата B.V. @ 29.04.09, 18:09

злоупотребление властью.

Злоупотребления НЕ БЫЛО, так что извиняться не за что. Я не применял инструменты воздействия, а только сделал оправданное замечание: независимо от того, прав насх по сути или нет, его пост бессодержателен и неинформативен. Если бы он внятно сказал "я считаю, что ты неправ" — я бы не имел к нему претензий. а "офигеть какие новости" — это даже не оффтоп, а вообще флуд.
Далее, одновременно я обратился к модераторам раздела посредством стандартной формы вызова, но ввместо наведения порядка в теме получил только ещё одну порцию флуда, теперь от модератора раздела...

Цитата B.V. @ 29.04.09, 18:09

С каких пор посыл "нафиг" считается "вполне естественным развитием темы"?

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

Цитата B.V. @ 29.04.09, 18:09

ты осознаешь свое невежество

вот, читай аттач... Сорри за невысокое качество, мой сканер плохо берёт книги.
Это скан страницы из книги К.Гетца и М.Гилберта "Програмирование на Visual Basic 6 и VBA". Актуален последний абзац.
Прикреплённый файл________________.tif (74.09 Кбайт, скачиваний: 159)

[nash]

Змей, ты теоретик от которого толку только студентам в курсовую пору.
Ну просто знай свое место и не ругайся так. А то просто противно читать.

[B.V.]

Цитата Змей @ 29.04.09, 22:58

Злоупотребления НЕ БЫЛО, так что извиняться не за что

Злоупотребление было, и это не обсуждается.

Цитата Змей @ 29.04.09, 22:58

вот, читай аттач...

Прочел. И что? Не заметил ни слова об обработке ошибок при создании объектов, кода тоже не заметил. А то, что проект компилироваться не будет, по-моему, просто очевидно. Что там имел ввиду автор под "не будет ... выполняться", известно только ему.
BlackSnake, а ты читал хоть статью по моей ссылке? Единственная ситуация, когда программа не запустится без библиотеки -- когда в References подключена tlb, описывающая функции, а не COM-объекты, и в проекте эти функции используются. В этом случае функции добавятся в секцию импорта, и уже на этапе загрузки PE будет выдано сообщение о недостающей библиотеке. Но ведь мы говорим исключительно об объектах, не так ли?

Цитата Змей @ 29.04.09, 23:06

B.V. не очень хочу тебя расстраивать

У тебя не получилось меня расстроить, не переживай

[domencom]

Простите за офф топ:
Змей, B.V. nash Чем ругаться лучше бы выложили книженцию

[ANDLL]

Учитывая что раздел о VB6, И что программы на Vb6 обычно распространяют в виде exe-файлов, а не в виде зипа с сорцами, твоя картинка неуместна.
И мне с трудом вспоминается один случай, когда кое кто так же говорил ерунду, а потом пытался натравить административные санкции на возмутителя, посмевшего отметить факт наличия последней

[B.V.]

BlackSnake поставлен на премод.

[nash]

кстати, более интересный вопрос:

запуск COM-EXE, которому не удается самозарегистрироваться.
при этом появляется противное сообщение. как бы этого избежать.

[ANDLL]

Какой запуск? Standalone или com?

[Змей]

Цитата domencom @ 30.04.09, 05:40

Змей, B.V. nash Чем ругаться лучше бы выложили книженцию

Извини, но у меня она бумажная. Сканить моим сканером — долго, нудно и лениво — не говоря уж о незаконности "выкладывания книженций".

[lytgeygen]

Проблема решена!

[nash]

Цитата ANDLL @ 30.04.09, 11:37

Какой запуск? Standalone или com?

угу, Standalone

[SCINER]

Желающие поболтать про виды связывания могут создать новый топик.
Желающие выяснить отношения могут общаться посредством PM.