Re: txt file of search

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: David Candy (david_at_mvps.org)
Date: 09/14/04 

Date: Wed, 15 Sep 2004 04:42:12 +1000

Attached is a VBScript that generate the shell properties (what you see or could see in Explorer). It is a 51 column csv. There is about 40 properties on a standard XP and I've allowed about 10 columns for custom properties that applications may add. Those whove seen it before this one automatically finds the desktop rather than editing the script. To use, drop a folder on it or place in Sendto and send a folder to it. If using the for command (below) you must run it once whereever you put it so it can be found.

To do sub folders type in a command prompt in the folder that you want to start in (It also does the parent folder - a quirk of For)
for /r %A in (.) do start "" /w "PrintDetailsAppend" "%~dpA"

It creates a file on the desktop called Folder Property List.txt

Copy the following line into a text document and rename it to PrintDetailsAppend.vbs

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

WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\" & Wscript.ScriptName & "\", Chr(34) & Wscript.ScriptFullName & Chr(34)
WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName)-3) & "exe" & "\", Chr(34) & Wscript.ScriptFullName & Chr(34)

Set Fldr=objShell.NameSpace(Ag(0))

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

Set DeskFldr=objShell.Namespace(16)
FName=fso.buildpath(DeskFldr.self.path, "Folder Property List.txt")

Set ts = fso.OpenTextFile(FName, 8, vbtrue)

For x = 0 to 50
 t1 = t1 & Fldr.GetDetailsOf(vbnull, x) & " (Shell)" & 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 

-- 
----------------------------------------------------------
War on the Pachyderms Terrorists
http://www.counterpunch.org/wilson09012004.html
"Ellen" <anonymous@discussions.microsoft.com> wrote in message news:0d1701c49a88$74495810$a601280a@phx.gbl...
> Hello,
> I'd like a list of files with a jpg extension on network 
> drive, which happens to be V.  I'd like the search to 
> include subfolders as well.  Is there a way to save the 
> search as a text file?
> 
> Thank you in advance,
> Ellen

Relevant Pages

  • Re: Print list of pictures in folders
    ... "David Candy" wrote: ... Drag a folder onto it then open in Excel to format and print. ... > ts.write FLDR.self.path &vbcrlf ... > For Each FldrItem in FldrItems ...
    (microsoft.public.windowsxp.newusers)
  • Re: Print list of pictures in folders
    ... Drag a folder onto it then open in Excel to format and print. ... FName=fso.buildpath(DeskFldr.self.path, "Folder Property List.txt") ... ts.write FLDR.self.path &vbcrlf ... For Each FldrItem in FldrItems ...
    (microsoft.public.windowsxp.newusers)
  • Re: Help Me Fix Script
    ... Months ago I used the following vbs script to extract all the ID3 tags ... : ts.write FLDR.self.path & vbcrlf ... wscript.echo "You must include the full path to a folder as an argument" ...
    (microsoft.public.scripting.vbscript)
  • Re: Help Me Fix Script
    ... I have no XP here ...try to drag and drop a folder ... Set objShell = CreateObject ... ts.write FLDR.self.path & vbcrlf ... For Each FldrItem in FldrItems ...
    (microsoft.public.scripting.vbscript)
  • Re: Need a Print Out or Text Saved to File - with Folder names and Folder Owners
    ... ts.write FLDR.self.path &vbcrlf ts.Write T1 & vbcrlf ... Sendto, type sendto in Start Run, copy the file into the sendto folder, then right click the folder you want to list, Send To, PrintDetailsAppend. ... To do sub folders type in a command prompt in the folder that you want to ...
    (microsoft.public.windowsxp.basics)