Как уничтожить объект,

Question

Кажется, что Set Object = Nothing не уничтожить Fs объект в этом коде:

Sub Test2() 
    Dim Fs As New FileSystemObject 
    Set Fs = Nothing 
    MsgBox Fs.Drives.Count ' this line works 
End Sub 

Последняя строка работает без ошибок !. thats mean Fs Объект все еще существует, правильно ?.

Итак, как уничтожить это Fs Объект.

Answer 1

Другой способ, чтобы обеспечить надлежащее разрушение объекта, чтобы дать свою ссылку на объект к With блока (т.е. не объявить локальную переменную):

Sub Test() 
    With New FileSystemObject 
     MsgBox .Drives.Count 
    End With 
End Sub 

Объект только когда существует внутри With блока, и, когда выполнение достигает End With фишку, если вы попробуете его с модулем пользовательского класса вы заметите, что класс Class_Terminate обработчик работает, эффективно подтверждая надлежащее уничтожение объекта.

Что касается As New причуды, as was already explained, если вы собираетесь установить ссылку на объект Nothing внутри этой сферы, не объявляйте его As New, поскольку VBA будет установить ссылку на объект Nothing, но также будет счастливо («полезно») создайте новый экземпляр для вас, как только вы снова ссылаетесь на него, только убедитесь, что объект Is Nothing.

Примечание стороны, это (раздражает) нелогичное поведение именно то, что за рассуждениями для переменного объекта Rubberduck «s является самоназначенными инспекции кода:

_{(примечание: если у вас есть код, который вы хотите проверить, знаете, что он работает много быстрее в реальном VBE, чем на веб-сайте)}

(если оно уже не ясны: я активно участвую в проекте Rubberduck)

Answer 2

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

Как прокомментировали другие, если он является тусклым внутри суб-объекта, он будет собран после завершения завершения.

Sub Test2() 
    Dim Fs As FileSystemObject 
    Set Fs = New FileSystemObject 
    Set Fs = Nothing 
End Sub 

Answer 3

он должен иметь дело с рисунком «объявить & Instantiate», чаще всего обращаются как к «следует избегать» модель

если вы разделяете их, вы получаете Nothing после установки его:

Sub Test2() 
    Dim Fs As FileSystemObject 
    Set Fs = New FileSystemObject 
    Set Fs = Nothing 
    MsgBox Fs.Drives.Count ' this line DOESN'T work 
End Sub