vba - كيفية تدمير كائن


1 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
vba excel-vba vb6 access-vba

يبدو أن 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 كائن.



Related