Export a list of documents from the Explorer Detail View?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to compare documents in several different directories, and the easiest
way appears to be to export the Detail view from Explore to Excel. Is this
possible?
 
Hi Don,

Compare how? The file's attributes or contents? Tried FC from a command
prompt?

--
Best of Luck,

Rick Rogers, aka "Nutcase" - Microsoft MVP

Windows help - www.rickrogers.org
 
Create a text document and paste below lines in. Rename it something.vbs. Use it by dropping a folder on the file. You'll need to edit the path (4th line) as you are unlikely to have a user with my name. Because I do not know how many columns you have installed I queried for the first 51 properties (which should be ample). Import into Excel to use or print and delete the empty columns at the end and most files have less than 10 properties.



Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments

'Set Fldr=objShell.NameSpace("c:\documents and settings\David Candy\my documents")
Set Fldr=objShell.NameSpace(Ag(0))

Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")

'FName=fso.GetTempName
FName="c:\documents and settings\David Candy\Desktop\Folder Property List.txt"
'fso.CreateTextFile FName
'Set f = fso.GetFile(FName)
Set ts = fso.OpenTextFile(FName, 2, vbtrue)



For x = 0 to 50
t1 = t1 & Fldr.GetDetailsOf(vbnull, x) & vbtab
Next
ts.write FLDR.self.path &vbcrlf
ts.Write T1 & vbcrlf
T1=""


For Each FldrItem in FldrItems
For x = 0 to 50
t1 = t1 & Fldr.GetDetailsOf(FldrItem, x) & vbtab
Next
t1=t1 & vbcrlf
ts.Write T1
T1=""
Next

msgbox FName & "has a tab delimited list of all properties"
 
Back
Top