एक वस्तु को नष्ट करने के लिए कैसे

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 ऑब्जेक्ट को कैसे नष्ट करें।

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 के वस्तु चर के लिए तर्क के पीछे है आत्म सौंपा कोड निरीक्षण है अगर आप कोड आप, निरीक्षण करने के लिए चाहते हैं पता है कि यह वास्तविक VBE में बहुत तेजी से वेबसाइट)

पर से रन (मिल गया है अगर यह पहले से स्पष्ट नहीं था: मैं रबरडक परियोजना के साथ काफी शामिल हूं)

Answer 2

यह संशोधित कोड ठीक काम करता प्रतीत होता है। एक ही रेखा पर मंद/नए के साथ एक नुकीला लगता है। उम्मीद है कि कोई और तर्क के रूप में एक बेहतर विचार दे सकता है।

जैसा कि अन्य ने टिप्पणी की है, यदि यह सब के भीतर एक मंद है तो उप-पूरा होने के बाद इसे एकत्र किया जाएगा।

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

Answer 3

यह "& इन्स्तांत की घोषणा" पैटर्न के साथ क्या करना होगा, सबसे अधिक बार एक "से परहेज किया" पैटर्न

के रूप में संबोधित यदि आप उन्हें अलग हो गए, आप के लिए यह निर्धारित करने के बाद 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