Проблема с 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 высказался по теме, и он прав