Vba का उपयोग करके कैसे जांचें कि फ़ाइल मौजूद है या नहीं (उदाहरण के साथ)

आप यह जांचने के लिए VBA में Dir फ़ंक्शन का उपयोग कर सकते हैं कि कोई विशिष्ट फ़ाइल किसी विशिष्ट फ़ोल्डर में मौजूद है या नहीं।

व्यवहार में इस कथन का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

यह विशेष मैक्रो एक इनपुट बॉक्स बनाएगा जहां उपयोगकर्ता यह जांचने के लिए फ़ाइल का पूरा पथ दर्ज कर सकता है कि वह मौजूद है या नहीं।

एक बार जब उपयोगकर्ता फ़ाइल पथ में प्रवेश करता है, तो मैक्रो एक संदेश बॉक्स उत्पन्न करेगा जो बताएगा कि फ़ाइल मौजूद है या नहीं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके जांचें कि फ़ाइल मौजूद है या नहीं

मान लीजिए कि हमारे पास निम्नलिखित स्थान पर एक फ़ोल्डर स्थित है:

C:\Users\bob\Documents\current_data

इस फ़ोल्डर में तीन CSV फ़ाइलें हैं:

मान लीजिए कि हम यह जांचने के लिए वीबीए का उपयोग करना चाहते हैं कि क्या इस फ़ोल्डर में सॉकर_डेटा.सीएसवी नामक फ़ाइल मौजूद है।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

एक बार जब हम इस मैक्रो को चलाते हैं, तो एक इनपुट बॉक्स प्रकट होता है जहां हम फ़ाइल पथ दर्ज कर सकते हैं:

हम सॉकर_डेटा.सीएसवी फ़ाइल का पूरा पथ दर्ज करेंगे:

एक बार जब हम ओके पर क्लिक करते हैं, तो एक संदेश बॉक्स दिखाई देगा जो हमें बताएगा कि फ़ाइल हमारे द्वारा निर्दिष्ट फ़ोल्डर में मौजूद है या नहीं:

संदेश बॉक्स हमें बताता है कि फ़ाइल मौजूद है।

नोट : आप Dir फ़ंक्शन के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं
VBA का उपयोग करके फ़ोल्डर्स को कैसे हटाएं
VBA का उपयोग करके फ़ाइलें कैसे हटाएं