विस्तारित फ़ाइल विशेषताओं को प्राप्त करने के लिए वीबीए का उपयोग

Question

विस्तारित विशेषताओं सहित डिस्क पर फ़ाइलों से सभी फ़ाइल विशेषताओं को कैप्चर करने के लिए एक्सेल वीबीए का उपयोग करने का प्रयास करना।

• फ़ाइल पथ
• फ़ाइल नाम
• फ़ाइल का आकार
• निर्माण दिनांक
• : बुनियादी विशेषताओं (कि फाइल सिस्टम से आते हैं) फ़ाइलें लूप करने के लिए इसे पाने के लिए और कब्जा करने में सक्षम था दिनांक अंतिम एक्सेस
• अंतिम संशोधन तिथि
• फ़ाइल प्रकार

भी बढ़ाया गुण है कि फाइल ही से आते हैं पर कब्जा करना चाहते हैं:

• लेखक
• कीवर्ड
• टिप्पणियाँ
• अंतिम लेखक
• श्रेणी
• विषय

और अन्य प्रोप erties जो फ़ाइल पर राइट क्लिक करते समय दिखाई दे रही हैं।

लक्ष्य फ़ाइल सर्वर पर सभी फ़ाइलों की विस्तृत सूची बनाना है।

Answer 1

आप लूप कहते हैं .. तो यदि आप वर्तमान दस्तावेज़ के बजाय इसे एक डीआईआर के लिए करना चाहते हैं;

Dim sFile As Variant 
Dim oShell: Set oShell = CreateObject("Shell.Application") 
Dim oDir: Set oDir = oShell.Namespace("c:\foo") 

For Each sFile In oDir.Items 
    Debug.Print oDir.GetDetailsOf(sFile, XXX) 
Next 

जहां XXX उदाहरण के लिए लेखक के लिए एक अटैचमेंट कॉलम इंडेक्स 9 है। अपने संदर्भ के लिए उपलब्ध अनुक्रमणिका सूचीबद्ध करने के लिए आप लूप के साथ प्रतिस्थापित कर सकते हैं;

for i = 0 To 40 
    debug.? i, oDir.GetDetailsOf(oDir.Items, i) 
Next 

एक एकल फाइल/विशेषता के लिए जल्दी:

Const PROP_COMPUTER As Long = 56 

With CreateObject("Shell.Application").Namespace("C:\HOSTDIRECTORY") 
    MsgBox .GetDetailsOf(.Items.Item("FILE.NAME"), PROP_COMPUTER) 
End With 

Answer 2

आप इसे .BuiltInDocmementProperties के साथ प्राप्त कर सकते हैं।

उदाहरण के लिए:

Public Sub PrintDocumentProperties() 
    Dim oApp As New Excel.Application 
    Dim oWB As Workbook 
    Set oWB = ActiveWorkbook 

    Dim title As String 
    title = oWB.BuiltinDocumentProperties("Title") 

    Dim lastauthor As String 
    lastauthor = oWB.BuiltinDocumentProperties("Last Author") 

    Debug.Print title 
    Debug.Print lastauthor 
End Sub 

सभी क्षेत्रों तो आप इस के साथ उपयोग कर सकते हैं के लिए इस पेज देखें: http://msdn.microsoft.com/en-us/library/bb220896.aspx

आप ग्राहक के इस बाहर करने के लिए प्रयास कर रहे हैं (यानी Excel के साथ बंद कर दिया और कोड, एक .NET प्रोग्राम से चल रहा कोड), आपको DSOFile.dll का उपयोग करने की आवश्यकता है।

Answer 3

'vb.net 
'Extended file stributes 
'visual basic .net sample 

Dim sFile As Object 
     Dim oShell = CreateObject("Shell.Application") 
     Dim oDir = oShell.Namespace("c:\temp") 

     For i = 0 To 34 
      TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(oDir, i) & vbCrLf 
      For Each sFile In oDir.Items 
       TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(sFile, i) & vbCrLf 
      Next 
      TextBox1.Text = TextBox1.Text & vbCrLf 
     Next