[Vba] كيفية تدمير كائن


Answers

يجب أن يكون لها علاقة مع "إعلان & مثيل" نمط، وغالبا ما يعالج كنمط "لتجنبها"

إذا قمت بتقسيمها، فلن تحصل على 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
Question

يبدو أن Set Object = Nothing لم يدمر كائن Fs في هذا الرمز:

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

السطر الأخير يعمل مع أي أخطاء !. وهذا يعني Fs كائن لا يزال موجودا، أليس كذلك؟

فكيف لتدمير هذا Fs كائن.