VBA / VB6 - विंडोज एक्सप्लोरर के साथ फाइलों की एक सूची का चयन करें

एपीआई के साथ फाइलों की एक सूची (या केवल एक) का चयन करें: GetOpenFileName।

विंडोज एक्सप्लोरर का उपयोग करके एक सरलीकृत फ़ंक्शन।

यह कोड VBA में भी काम करता है बशर्ते कि आप नियंत्रणों को समायोजित करें।

तुम बदल सकते हो

शीर्षक
निरंतर OFN_ALLOWMULTISELECT को हटाकर किसी एकल फ़ाइल की वापसी
निरंतर OFN_EXPLORER को हटाकर एक्सप्लोरर का पुराना संस्करण

कोड

 '********************************************* 'खोजकर्ता विंडोज' संस्करण 1 '29 / 01/2012 '********************************* Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (OPENFILENAME के रूप में pOpenfilename) लंबे निजी प्रकार OPENFILENAME के रूप में लंबे समय तक WWndOwner के रूप में लंबे समय के रूप में उपयोग किया जाता है। स्ट्रिंग nMaxFileTitle लांग lpstrInitialDir स्ट्रिंग lpstrTitle स्ट्रिंग झंडे लांग nFileOffset पूर्णांक nFileExtension पूर्णांक lpstrDefExt स्ट्रिंग lCustData लांग lpfnHook लांग lpTemplateName के रूप में स्ट्रिंग समाप्ति प्रकार लोक Enum LnFlags OFN_ALLOWMULTISELECT = & H200 OFN_CREATEPROMPT = & H2000 OFN_ENABLEHOOK = & एच 20 OFN_ENABLETEMPLATE = & H40 OFN_ENABLETEMPLATEHANDLE = के रूप में के रूप में के रूप में के रूप में के रूप में के रूप में के रूप में के रूप में के रूप में & H80 OFN_EXPLORER = & H80000 OFN_EXTENSIONDIFFERENT = & H400 OFN_FILEMUSTEXIST = & H10 00 OFN_HIDEREADONLY = & एच 4 OFN_LONGNAMES = & H200000 OFN_NOCHANGEDIR = & H8 OFN_NODEREFERENCELINKS = & H100000 OFN_NOLONGNAMES = & H40000 OFN_NONETWORKBUTTON = & H20000 OFN_NOREADONLYRETURN = & H8000 OFN_NOTESTFILECREATE = & H10000 OFN_NOVALIDATE = & H100 OFN_OVERWRITEPROMPT = और H2 OFN_PATHMUSTEXIST = & H800 OFN_READONLY = & एच 1 OFN_SHAREAWARE = & H4000 OFN_SHOWHELP = & एच 10 समाप्ति Enum निजी उप Command1_Click () स्ट्रिंग रिटर्न्स ऐज़ स्ट्रिंग, आई एज़ इंटेगर डिम टीबी रिटॉर = लिस्टफिचियर () अगर रिटूर = ’’ तो फिर सबिट L ल्यूटिलिटर्स आ एनीलर टीबी = स्प्लिट (रीटूर, vbNullChar) सेपेरेशन डे ला लिस्टी इफ यूबीबाउंड (टीबी) = 0 तो फिर मैं = लेन (टी.बी. (0)) के लिए एक सीकुल फाइकियर सेलेनेनेर 1 चरण -1 के लिए यदि मिड (टीबी (0), आई, 1) = "\" तो अगली लिस्ट के लिए बाहर निकलें। एडिडेम मिड (टीबी (0) ), आई + 1) टीबी (०) = लेफ्ट (टीबी (०), आई) e एसे लिस्टे इस्ट डिसेंटिबल फॉर आई = १ टू यूबाउंड (टीबी) लिस्ट १.आडिटिम टीबी (आई) नेक्स्ट एंड इफ लेबल १.कप्तान = टीबी (0) अंतिम उप निजी उप कमांड 2_क्लिक करें () List1.Clear Label1 = "" उप उप सूची ListeFichier () स्ट्रिंग डिम रिट एल के रूप में ong Dim LN_Ouv OPENFILENAME के रूप में LN_Ouv.lStructSize = Len (LN_Ouv) LN_Ouv.hWndOwner = Me.hWnd LN_Ouv.hInvance = App.hInstance LN_Ouv.lpstrFilter = "Musique (* *mp3")। "+ Chr $ (0) +" Tous (*। *) "+ Chr $ (0) +" *। * "+ Chr $ (0) LN_Ouv.lpstrFile = स्ट्रिंग $ (1024, vNNullChar) LN_Ouv.nMaxFile = लेन। (LN_Ouv.lpstrFile) - 1 'लॉन्गयूअर मैक्सिमम डे ला सेलेक्शन डेस फिशियर्स। LN_Ouv.lpstrTitle = "Sélection liste de fichier" 'Titre de l'explorateur' directive pour le mode d'affichage। LN_Ouv.flags = OFN_ALLOWMULTISELECT + OFN_EXPLORER 'Affichage de l'explorateur Ret = GetOpenFileName (LN_Ouv) यदि उपलब्ध है तो = = ListeFichier = "" Else ListeFichier = Left $। - 2) अंत यदि अंत समारोह