वीबीए आपको यह जांचने की अनुमति देता है कि फ़ाइल या फ़ोल्डर का उपयोग करके मौजूद है या नहीं डिर समारोह।
फ़ाइल मौजूद है या नहीं यह जाँचने के लिए Dir कमांड का उपयोग करना
जैसा कि हमने परिचय में उल्लेख किया है, डिर फ़ंक्शन हमें यह जांचने की अनुमति देता है कि कंप्यूटर पर कोई चयनित फ़ाइल मौजूद है या नहीं। यहाँ कोड है:
| 123456789101112131415 | उप CheckFileExists ()स्ट्रिंग के रूप में मंद strFileNameस्ट्रिंग के रूप में मंद strFileExistsstrFileName = "C:\Users\Nikola\Desktop\VBA article\Test File Exists.xlsx"strFileExists = डिर (strFileName)अगर strFileExists = "" तोMsgBox "चयनित फ़ाइल मौजूद नहीं है"अन्यथाMsgBox "चयनित फ़ाइल मौजूद है"अगर अंतअंत उप |
हमने सबसे पहले फ़ाइल पथ को वेरिएबल को सौंपा है strफ़ाइलनाम. तब हम का उपयोग करते हैं डिर फ़ाइल नाम को चर में लाने के लिए कार्य strFileExists. यदि फ़ाइल निर्देशिका में मौजूद है, तो उसका नाम स्ट्रिंग चर को सौंपा जाएगा strFileExists. अगर यह मौजूद नहीं है तो strFileExists रिक्त रहेगा। अंत में, संदेश बॉक्स हमें सूचित करता है कि फ़ाइल मौजूद है या नहीं।
फोल्डर मौजूद है या नहीं यह जांचने के लिए Dir कमांड का उपयोग करना
इसी तरह यह जाँचने के लिए कि कोई फ़ाइल मौजूद है या नहीं, आप जाँच सकते हैं कि कोई फ़ोल्डर मौजूद है या नहीं। आपको बस एक तर्क जोड़ने की जरूरत है डिर आदेश। आइए कोड देखें:
| 123456789101112131415 | उप CheckFolderExists ()स्ट्रिंग के रूप में मंद strFolderNameमंद strFolderस्ट्रिंग के रूप में मौजूद हैstrFolderName = "C:\Users\Nikola\Desktop\VBA article\Test Folder\"strFolderExists = Dir (strFolderName, vbDirectory)अगर strFolderExists = "" तोMsgBox "चयनित फ़ोल्डर मौजूद नहीं है"अन्यथाMsgBox "चयनित फ़ोल्डर मौजूद है"अगर अंतअंत उप |
हमने सबसे पहले वेरिएबल को फोल्डर पथ सौंपा है strFolderनाम. तब हम का उपयोग करते हैं डिर फ़ाइल नाम को चर में लाने के लिए कार्य strFileExists. किसी फ़ोल्डर की जांच करने के लिए, हमें फ़ंक्शन में दूसरा तर्क जोड़ना होगा - वीबीडायरेकोट्री. यदि निर्देशिका में फ़ोल्डर मौजूद है, तो उसका नाम चर को सौंपा जाएगा strFolderमौजूद. अगर नहीं strFolderमौजूद रिक्त रहेगा।
