विषय - सूची
निम्न कोड मान्य करेगा कि कोई फ़ाइल नाम मान्य है या नहीं। यह तब उपयोगी होता है जब आपके कोड को उपयोगकर्ता द्वारा इनपुट किए गए फ़ाइल नाम की आवश्यकता होती है। यह सत्यापित करेगा कि फ़ाइल नाम आगे बढ़ने से पहले मान्य है और संभवतः एक त्रुटि उत्पन्न कर रहा है।
फ़ाइल नाम सत्यापित करें
यह फ़ंक्शन परीक्षण करता है कि चर 'फ़ाइल नाम' एक मान्य फ़ाइल नाम है:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | फंक्शन ValidateFileName (ByVal FileName As स्ट्रिंग) बूलियन के रूप मेंएप्लिकेशन.स्क्रीनअपडेटिंग = गलतकार्यपुस्तिका के रूप में मंद wb' फ़ाइल नाम में कुछ भी नहीं के लिए जाँच करें।अगर फ़ाइलनाम = "" तोValidateFileName = गलतGoTo ExitProcअगर अंत'अस्थायी फ़ाइल बनाएँ'GoTo InvalidName त्रुटि पर:wb = कार्यपुस्तिकाएँ सेट करें। जोड़ेंwb.SaveAs Environ("temp") & "\" & FileName & ".xlsx", 51त्रुटि पर फिर से शुरू करें अगला'अस्थायी एक्सेल फ़ाइल बंद करें'wb.गलत बंद करें'टेम्प एक्सेल फ़ाइल हटाएं'किल एनवायरन ("अस्थायी") और "\" और फ़ाइल नाम और ".xlsx"'फ़ाइल नाम मान्य - निकास समारोह'ValidateFileName = TrueGoTo ExitProc'अगर फाइल नहीं बनाई जा सकती'अमान्य नाम:त्रुटि पर फिर से शुरू करें अगला'अस्थायी एक्सेल फ़ाइल बंद करें'wb.गलत बंद करें'फ़ाइल का नाम मान्य नहीं है - फ़ंक्शन से बाहर निकलें'ValidateFileName = गलतएक्जिटप्रोक:एप्लिकेशन.स्क्रीनअपडेटिंग = गलतअंत समारोह |
आप इस तरह के फ़ंक्शन को कॉल कर सकते हैं:
| 12345 | उप test_ValidateFileName ()Debug.Print ValidateFileName("fda?/")अंत उप |
यह परीक्षण प्रक्रिया तत्काल विंडो में TRUE या FALSE आउटपुट करेगी।
