Print list of pictures in folders

Archived from groups: microsoft.public.windowsxp.newusers (More info?)

Create a text file with the following lines in it. Rename it something.vbs. Drag a folder onto it then open in Excel to format and print.

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

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

--
----------------------------------------------------------
'Not happy John! Defending our democracy',
http://www.smh.com.au/articles/200 [...] 35123.html

"Cowboy" <Cowboy@discussions.microsoft.com> wrote in message news:3AE490F8-8CAF-4CDA-8D91-8515EC0B45B4@microsoft.com...
> Hi
> I am wanting to print a list of the pictures I have in folders. When I select all, copy and paste, it won't copy them all. Can someone please tell me how I can do this
> --
> Thank-you

Archived from groups: microsoft.public.windowsxp.newusers (More info?)

Sorry I am not very computer literate and that is too complicated for me
--
Thank-you


"David Candy" wrote:

> Create a text file with the following lines in it. Rename it something.vbs. Drag a folder onto it then open in Excel to format and print.
>
> 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
>
> 'msgbox FName & "has a tab delimited list of all properties"
>
> --
> ----------------------------------------------------------
> 'Not happy John! Defending our democracy',
> http://www.smh.com.au/articles/200 [...] 35123.html
>
> "Cowboy" <Cowboy@discussions.microsoft.com> wrote in message news:3AE490F8-8CAF-4CDA-8D91-8515EC0B45B4@microsoft.com...
> > Hi
> > I am wanting to print a list of the pictures I have in folders. When I select all, copy and paste, it won't copy them all. Can someone please tell me how I can do this
> > --
> > Thank-you
>

Archived from groups: microsoft.public.windowsxp.newusers (More info?)

| "Cowboy" <Cowboy@discussions.microsoft.com>
| wrote news:3AE490F8-8CAF-4CDA-8D91-8515EC0B45B4@microsoft.com
| I am wanting to print a list of the pictures I have in folders.
| When I select all, copy and paste, it won't copy them all. Can
| someone please tell me how I can do this.

Just in case you are one of the many that uses Microsoft Office
but does not know about the Microsoft Outlook Integrated File
Management Advanced Find component (finder.exe)...

You can use finder.exe to search for files in any folder on your
computer, any network drive your computer is connected to, and
any removable drive attached to your computer. Additionally, you
can use finder.exe to view a file list of a single folder.

Then you can print the view of the list directly from finder.exe.
Or if you want to save the list you can copy it and then paste it
into a program such as Word or Excel.

For some more information about finder.exe, search Microsoft
Outlook Help for the following phrases (with the quotes) and read
the topic(s) returned:

- "Print a view of a file list"
- "About finding items and files"
- "Search for items and files using Advanced Find"
- "Add or remove fields in a view"
- "Set up or remove individual components"

To copy the table list of search results or a file list of a
folder, and insert it into a programs such as Microsoft
Word or Excel:

- Click within the table list of results

- Select [Menu bar] Edit | Select All
(or keyboard command: CTRL+A)

- Use the keyboard command CTRL+C
(to copy file list of a folder). Note: Do not use
the right-click Context menu Copy command.

- For Excel select [Menu bar] Edit | Paste
(or keyboard command: CTRL+V)

- For Word select Edit | Paste Special | Unformatted Text

And if you have any questions about the Microsoft Outlook
Integrated File Management Advanced Find component I
suggest that you post in the following newsgroup:

microsoft.public.outlook.general

If you read the newsgroups using a Web Browser see:

Microsoft Office Online
Office Discussion Groups Home
http://www.microsoft.com/office/co [...] fault.mspx

If you read newsgroups using a NNTP newsreader, such
as Outlook Express, and use the msnews.microsoft.com
news server here is a link:
news://msnews.microsoft.com/microsoft.public.outlook.general