Как можно объявить объект глобально на всю программу? - VB

Формулировка задачи:

подскажите плз., как можно объявить объкт глобально на всю программу. Детали - хочу создать один(!) объект CreateObject('Scripting.FileSystemObject') и использовать его потом когда захочу, в любом месте. Это возможно? И еще - как его правильно убить по оканчании завершения работы программы??

Решение задачи: «Как можно объявить объект глобально на всю программу?»

textual
                            Листинг программы 
                        

                            Private lgFSO As Scripting.FileSystemObject 'Тут будет жить FSO.
 
Public Function GetFSO() As Scripting.FileSystemObject
On Error GoTo Err_GetFSO
 
    If lgFSO Is Nothing Then
        Set lgFSO = New Scripting.FileSystemObject
    End If
    
    Set GetFSO = lgFSO
    
Exit_GetFSO:
    Exit Function
    
Err_GetFSO:
    Set GetFSO = Nothing
    If Not lgFSO Is Nothing Then Set lgFSO = Nothing
    Resume Exit_GetFSO
End Function
 
Public Sub TerminateFSO()
    If Not lgFSO Is Nothing Then Set lgFSO = Nothing
End Sub
                        

Оцени полезность:

8 голосов , оценка 3.5 из 5

Похожие ответы