| Author |
Message |
mikey
Guest
|
 Posted:
Mon Nov 07, 2005 5:27 pm Post subject:
library listings |
|
|
Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried opening
with notepad etc but this only lists the html codes and I would like to open
in excel or something similar where I can sort by the different columns |
|
| Back to top |
|
 |
eric g
Guest
|
| Posted:
Tue Nov 08, 2005 1:27 am Post subject:
RE: library listings |
|
|
"mikey" wrote:
| Quote: | Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried opening
with notepad etc but this only lists the html codes and I would like to open
in excel or something similar where I can sort by the different columns
|
mikey,you can try microsoft works database or microsoft works spread sheet.
if you dont have it you can probaly find it on the windows microsoft update
site. i used microsoft works spreadsheet to categorize and keep track of all
my dvd movies |
|
| Back to top |
|
|
Dennis Marks
Guest
|
| Posted:
Tue Nov 08, 2005 7:36 am Post subject:
Re: library listings |
|
|
Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
| Quote: | Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would like to
open
in excel or something similar where I can sort by the different columns |
|
|
| Back to top |
|
|
mikey
Guest
|
| Posted:
Wed Nov 09, 2005 12:50 am Post subject:
Re: library listings |
|
|
Dennis - many thanks for your help. However when I place the directory of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft VB
script compilation error
You will see I have altered line 6 to send the output to my desktop- the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
| Quote: | Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3 files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would like to
open
in excel or something similar where I can sort by the different columns
|
|
|
| Back to top |
|
|
Dennis Marks
Guest
|
| Posted:
Wed Nov 09, 2005 1:27 am Post subject:
Re: library listings |
|
|
Maybe desktop should be Desktop (capital D). Other then that be sure that
the entire file name is on one line with quotes around it. The error message
seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
| Quote: | Dennis - many thanks for your help. However when I place the directory of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft VB
script compilation error
You will see I have altered line 6 to send the output to my desktop- the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3 files
in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would like to
open
in excel or something similar where I can sort by the different columns
|
|
|
| Back to top |
|
|
Dennis Marks
Guest
|
| Posted:
Wed Nov 09, 2005 8:59 am Post subject:
Re: library listings |
|
|
In addition "copy and paste" of email can introduce strange characters that
can mess up a script. Be sure to delete all leading and trailing spaces on a
line (they might not be spaces). Join any lines that may have been split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
| Quote: | Maybe desktop should be Desktop (capital D). Other then that be sure that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the directory
of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft VB
script compilation error
You will see I have altered line 6 to send the output to my desktop- the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3
files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
mikey
Guest
|
| Posted:
Wed Nov 09, 2005 3:36 pm Post subject:
Re: library listings |
|
|
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
| Quote: | In addition "copy and paste" of email can introduce strange characters that
can mess up a script. Be sure to delete all leading and trailing spaces on a
line (they might not be spaces). Join any lines that may have been split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the directory
of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft VB
script compilation error
You will see I have altered line 6 to send the output to my desktop- the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it "listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3
files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
Dennis Marks
Guest
|
| Posted:
Thu Nov 10, 2005 1:27 am Post subject:
Re: library listings |
|
|
Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the third
line. I think that is the line that assigns the folder name to the one that
is dropped on it.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@microsoft.com...
| Quote: | Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
In addition "copy and paste" of email can introduce strange characters
that
can mess up a script. Be sure to delete all leading and trailing spaces
on a
line (they might not be spaces). Join any lines that may have been split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure
that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the
directory
of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft
VB
script compilation error
You will see I have altered line 6 to send the output to my desktop-
the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it
"listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to
be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3
files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would
like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
mikey
Guest
|
| Posted:
Thu Nov 10, 2005 5:27 pm Post subject:
Re: library listings |
|
|
Dennis your efforts have been much appreciated but I am on the point of
giving up! Just a couple of questions though, the playlists that work for
you are they m3u or wpl? and in your own code as I received it there are some
spaces within the code and some without for example t1=t1 and also t1 = t1 ,
is this correct? although I have messed around and deleted most of the spaces
it doesnt seem to have made any difference - still cant get past line 3 and
yet when line 6 was split over two lines before I edited it , it got to line
6 so presumably it had read ths script past line 3 anyhow
Thanks anyhow
mike
"Dennis Marks" wrote:
| Quote: | Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the third
line. I think that is the line that assigns the folder name to the one that
is dropped on it.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@microsoft.com...
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
In addition "copy and paste" of email can introduce strange characters
that
can mess up a script. Be sure to delete all leading and trailing spaces
on a
line (they might not be spaces). Join any lines that may have been split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure
that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the
directory
of
music files over the script icon I get an error message as follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409 microsoft
VB
script compilation error
You will see I have altered line 6 to send the output to my desktop-
the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it
"listdir.vbs".
Modify line 6 to contain the path to the file you wish the output to
be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my mp3
files in
media players library - I can save them as playlists and have tried
opening
with notepad etc but this only lists the html codes and I would
like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
Dennis Marks
Guest
|
| Posted:
Thu Nov 10, 2005 5:27 pm Post subject:
Re: library listings |
|
|
Spaces within lines do not matter. The script has nothing to do with
playlists except for the fact that the same items are extracted. Most of the
items in a playlist are extracted from the directory. You must drop a
"folder" not a file on the icon. It does not matter what the folder
contains. The id3 tags are extracted. For photos they include date taken and
camera, for music artist and title, etc.
I have placed a "working" copy of the script at
http://www.dcsi.net/~denmarks/listdir.vbs. Just edit the output file name.
Drop "My Music" icon on the script icon.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:F97CCC36-B6F2-4993-8446-7A32BDB5EC1B@microsoft.com...
| Quote: | Dennis your efforts have been much appreciated but I am on the point of
giving up! Just a couple of questions though, the playlists that work for
you are they m3u or wpl? and in your own code as I received it there are
some
spaces within the code and some without for example t1=t1 and also t1 =
t1 ,
is this correct? although I have messed around and deleted most of the
spaces
it doesnt seem to have made any difference - still cant get past line 3
and
yet when line 6 was split over two lines before I edited it , it got to
line
6 so presumably it had read ths script past line 3 anyhow
Thanks anyhow
mike
"Dennis Marks" wrote:
Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the
third
line. I think that is the line that assigns the folder name to the one
that
is dropped on it.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@microsoft.com...
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
In addition "copy and paste" of email can introduce strange characters
that
can mess up a script. Be sure to delete all leading and trailing
spaces
on a
line (they might not be spaces). Join any lines that may have been
split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure
that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the
directory
of
music files over the script icon I get an error message as
follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409
microsoft
VB
script compilation error
You will see I have altered line 6 to send the output to my
desktop-
the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it
"listdir.vbs".
Modify line 6 to contain the path to the file you wish the output
to
be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my
documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my
mp3
files in
media players library - I can save them as playlists and have
tried
opening
with notepad etc but this only lists the html codes and I would
like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
mikey
Guest
|
| Posted:
Fri Nov 11, 2005 1:27 am Post subject:
Re: library listings |
|
|
Just when I thought I was going to give up I'm nearly there - my problem
seems to be I was dropping the file on to it instead of the folder
However when I go to drop the folder on (yours and my script!) the dreaded
norton antivirus comes up warning me of malicious script and reccomends
deleting it - Dennis do you have any comments please as I feel bad even
asking you about this
thanks
mike
"Dennis Marks" wrote:
| Quote: | Spaces within lines do not matter. The script has nothing to do with
playlists except for the fact that the same items are extracted. Most of the
items in a playlist are extracted from the directory. You must drop a
"folder" not a file on the icon. It does not matter what the folder
contains. The id3 tags are extracted. For photos they include date taken and
camera, for music artist and title, etc.
I have placed a "working" copy of the script at
http://www.dcsi.net/~denmarks/listdir.vbs. Just edit the output file name.
Drop "My Music" icon on the script icon.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:F97CCC36-B6F2-4993-8446-7A32BDB5EC1B@microsoft.com...
Dennis your efforts have been much appreciated but I am on the point of
giving up! Just a couple of questions though, the playlists that work for
you are they m3u or wpl? and in your own code as I received it there are
some
spaces within the code and some without for example t1=t1 and also t1 =
t1 ,
is this correct? although I have messed around and deleted most of the
spaces
it doesnt seem to have made any difference - still cant get past line 3
and
yet when line 6 was split over two lines before I edited it , it got to
line
6 so presumably it had read ths script past line 3 anyhow
Thanks anyhow
mike
"Dennis Marks" wrote:
Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the
third
line. I think that is the line that assigns the folder name to the one
that
is dropped on it.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@microsoft.com...
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
In addition "copy and paste" of email can introduce strange characters
that
can mess up a script. Be sure to delete all leading and trailing
spaces
on a
line (they might not be spaces). Join any lines that may have been
split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure
that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the
directory
of
music files over the script icon I get an error message as
follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409
microsoft
VB
script compilation error
You will see I have altered line 6 to send the output to my
desktop-
the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it
"listdir.vbs".
Modify line 6 to contain the path to the file you wish the output
to
be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my
documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my
mp3
files in
media players library - I can save them as playlists and have
tried
opening
with notepad etc but this only lists the html codes and I would
like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
mikey
Guest
|
| Posted:
Fri Nov 11, 2005 1:27 am Post subject:
Re: library listings |
|
|
Dennis I decided to trust you ( why else would you have gone to so much
trouble for me)
Am pleased to report that overriding the antivirus worked a treat even
though I have to open every individual folder within my music folder - that
is a small price to pay against having to type the lot into excel!!
If you ever come over here to the UK I owe you a large drink
cheers
mike
"Dennis Marks" wrote:
| Quote: | Spaces within lines do not matter. The script has nothing to do with
playlists except for the fact that the same items are extracted. Most of the
items in a playlist are extracted from the directory. You must drop a
"folder" not a file on the icon. It does not matter what the folder
contains. The id3 tags are extracted. For photos they include date taken and
camera, for music artist and title, etc.
I have placed a "working" copy of the script at
http://www.dcsi.net/~denmarks/listdir.vbs. Just edit the output file name.
Drop "My Music" icon on the script icon.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:F97CCC36-B6F2-4993-8446-7A32BDB5EC1B@microsoft.com...
Dennis your efforts have been much appreciated but I am on the point of
giving up! Just a couple of questions though, the playlists that work for
you are they m3u or wpl? and in your own code as I received it there are
some
spaces within the code and some without for example t1=t1 and also t1 =
t1 ,
is this correct? although I have messed around and deleted most of the
spaces
it doesnt seem to have made any difference - still cant get past line 3
and
yet when line 6 was split over two lines before I edited it , it got to
line
6 so presumably it had read ths script past line 3 anyhow
Thanks anyhow
mike
"Dennis Marks" wrote:
Twenty-two lines is correct. I wish I could help you but I am not a VBS
expert. It works for me. You are dropping the folder to be listed on the
script icon, right? I don't know why you would now get an error on the
third
line. I think that is the line that assigns the folder name to the one
that
is dropped on it.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@microsoft.com...
Dennis Thanks for your time
All reentered without front end spaces etc
I now have 22 lines of text - can you confirm this is correct please.
New error code is 80070002 line 3 char 1 system cannot find file
specified
"Dennis Marks" wrote:
In addition "copy and paste" of email can introduce strange characters
that
can mess up a script. Be sure to delete all leading and trailing
spaces
on a
line (they might not be spaces). Join any lines that may have been
split.
"Dennis Marks" <denmarks@yahoo.com> wrote in message
news:uI6K9fM5FHA.3588@TK2MSFTNGP15.phx.gbl...
Maybe desktop should be Desktop (capital D). Other then that be sure
that
the entire file name is on one line with quotes around it. The error
message seems to indicate that the final quote is missing.
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@microsoft.com...
Dennis - many thanks for your help. However when I place the
directory
of
music files over the script icon I get an error message as
follows:-
" FName="c:\documents and settings\MIKE\desktop\Directory
List.txt" " (ignore my opening and closing quotes)
Line 6 char 57 unterminated string constant code 800A0409
microsoft
VB
script compilation error
You will see I have altered line 6 to send the output to my
desktop-
the
rest was just copied and pasted from your message
Can you see where I may have gone wrong please?
Your help is very much appreciated - thanks - Mike
"Dennis Marks" wrote:
Place the following statements in a text file and name it
"listdir.vbs".
Modify line 6 to contain the path to the file you wish the output
to
be
in.
Do not create the file. The script will do it.
Drop the directory of music files on the script icon.
Open the created file with any spreadsheet and sort and modify.
Set objShell = CreateObject("Shell.Application")
Set Ag=Wscript.Arguments
Set Fldr=objShell.NameSpace(Ag(0))
Set FldrItems=Fldr.Items
Set fso = CreateObject("Scripting.FileSystemObject")
FName="c:\documents and settings\Dennis Marks\my
documents\Directory
List.txt"
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"
"mikey" <mikey@discussions.microsoft.com> wrote in message
news:7985F736-23A6-4773-A529-CC33E62D337F@microsoft.com...
Can anybody tell me if its possible to print out a list of my
mp3
files in
media players library - I can save them as playlists and have
tried
opening
with notepad etc but this only lists the html codes and I would
like
to
open
in excel or something similar where I can sort by the different
columns
|
|
|
| Back to top |
|
|
|
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in