Re: library listings
- From: "mikey" <mikey@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 10 Nov 2005 05:46:11 -0800
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@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> news:3B0A37F1-079F-42EF-8B02-57A1BBC89B7A@xxxxxxxxxxxxxxxx
> > 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@xxxxxxxxx> wrote in message
> >> news:uI6K9fM5FHA.3588@xxxxxxxxxxxxxxxxxxxxxxx
> >> > 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@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> >> > news:5B26E0E4-3ED6-49C9-A0A2-A047393E9566@xxxxxxxxxxxxxxxx
> >> >> 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 spread*** 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@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> >> >>> news:7985F736-23A6-4773-A529-CC33E62D337F@xxxxxxxxxxxxxxxx
> >> >>> > 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
> >> >>>
> >> >>>
> >> >>>
> >> >
> >> >
> >>
> >>
> >>
>
>
>
.
- Follow-Ups:
- Re: library listings
- From: Dennis Marks
- Re: library listings
- References:
- Re: library listings
- From: Dennis Marks
- Re: library listings
- From: Dennis Marks
- Re: library listings
- From: Dennis Marks
- Re: library listings
- From: mikey
- Re: library listings
- From: Dennis Marks
- Re: library listings
- Prev by Date: Re: Confused About How to Use Media Library
- Next by Date: Re: library listings
- Previous by thread: Re: library listings
- Next by thread: Re: library listings
- Index(es):