VBA - एक फ़ाइल के बारे में सभी जानकारी प्राप्त करना

प्रारंभिक

• एक नई कार्यपुस्तिका खोलें
• एक मॉड्यूल जोड़ें

मॉड्यूल में

 'विज़ार्ड के लिए वैरिएबल घोषित करें। सार्वजनिक गुब्बारा 1 गुब्बारे के रूप में सार्वजनिक गुब्बारा 2 गुब्बारे के रूप में सार्वजनिक गुब्बारा 3 गुब्बारे के रूप में 'कई बयानों के बजाय एक तालिका का उपयोग करना संभव है, मैंने' अधिक स्पष्ट होने के लिए कोड 'के लिए कई विकल्प चुना' सार्वजनिक गुब्बारा '(3 गुब्बारे के रूप में) सार्वजनिक शीर्षक स्ट्रिंग उप संदेश (स्ट्रिंग) के रूप में सार्वजनिक संदेश स्ट्रिंग के रूप में। डिम जादूगरनाम स्ट्रिंग के रूप में डिम अदृश्य है बूलियन के रूप में डिम रिजल्ट के रूप में डिम रिजल्ट 'एरर रिज्यूमे को क्लियर करने के लिए क्लियर एरर को मिटा दें। अगला' विज़ार्ड का वर्तमान नाम याद रखें। जादूगरनाम = जादूगर।नाम 'यदि जादूगर दिखाई नहीं देता है, तो इसे दृश्यमान के रूप में सेट करें। विज़ार्ड। अदृश्य = गलत फिर विज़ार्ड। अदृश्य = सही अदृश्य = गलत विकल्प अदृश्य = सत्य अंत यदि विज़ार्ड गुब्बारा बनाएँ। गुब्बारा 2 सेट करें। .Heading = Title .Text = Message 'विज़ार्ड के गुणों को सेट करता है। .BalloonType = msoBalloonTypeButtons का मोडल मोड, डिफ़ॉल्ट रूप में। .Mode = msoModeModal 'बटन को रद्द किया गया विकल्प असाइन करें, ठीक है डिफ़ॉल्ट है। .Button = msoButtonSetOK 'चयन के लिए प्रतीक्षा करें' के साथ अंत करें 'चयन किया गया परिणाम = गुब्बारा 2। कैसे' बटन चुना गया है, तो मैक्रो समाप्त करें। यदि त्रुटि 0 है तो यदि अदृश्य = गलत है तो विज़ार्ड। अदृश्य = गलत अंत यदि छोर समाप्त होता है तो लूप अंत उप उप प्रदर्शनइन्फोएफ़ाइटल (सट्टेबाजी) 'हमें चाहिए कि कार्यपुस्तिका हार्ड डिस्क पर पहले से ही है। '------------------------------------------------- --- डिम fs, f, s सेट fs = CreateObject ("Scripting.FileSystemObject") सेट f = fs.GetFile (सट्टा) s = UCase (सट्टा) और vbCLLf s = s & "Created:" & f.DateCreated & vbCrLf s = s & "अंतिम acess:" & f.DateLastAccessed & vbCrLf s = s & "अंतिम संशोधन:" & f.DateLastModified & vbCrLf s = s & "size" & f.Size & "bytes"। & vbCrLf s = s & "Drive" & f.Drive & vbCrLf s = s & "Directory" & f.ParentFolder शीर्षक = "फ़ाइल के बारे में जानकारी:" और युक्ति संदेश = खुला संदेश अंत उप 

Sheet1 मॉड्यूल में

 निजी सब वर्क्सशीट_एक्टिवेट () रेंज ("बी 5")। मान = "फ़ाइल के बारे में जानकारी प्रदर्शित करें" ActiveSheet.Range ("B5") के साथ। फ़ॉन्ट .Name = "Arial" .ize = 16 .CodeIndex = 5 .Bold = True कॉलम के साथ अंत ("बी")। ColumnWidth = 48 अंतिम उप निजी सब वर्क्सशीट_सेलेक्शन चेंज (ByVal Target As Range) Dim a $, b $ a $ = ActiveWorkbook.Path & "" & ActiveWorkbook.Name b $ = ActiveWorkbook.Name Ifame ActiveCell.Address = "$ B $ 5" तब AfficheInfoAccesFile (ActiveWorkbook.Name) यदि अंत उप है