[RESOLVED] XML file search

[sotusotusotu]

Hey,

I have a list box named lstMyPlaylists and when the cmdOk button is clicked i need to be able for it to search xml files inside a folder called playlists and display the xml filenames inside the lstbox?

I can't seem to get anywhere with this, have tried searching the net for stuff but have been unsucessfull!

any ideas?

Thanks

[Andy_P]

Try this...

Dim xmlfiles As String() = System.IO.Directory.GetFiles("C:\Playlists", "*.xml")
 
lstMyPlaylists.Items.AddRange(xmlfiles)

Hope it helps you.

[sotusotusotu]

Try this...

Dim xmlfiles As String() = System.IO.Directory.GetFiles("C:\Playlists", "*.xml")
 
lstMyPlaylists.Items.AddRange(xmlfiles)

Hope it helps you.

Sweet man! Works really well!

I would however like it to only display the file name?

Also do you know how i can make it find its own path to the directory as its in my documents and when i put it on another computer it will not be saved in the same directory. If that makes sense, having trouble with explaining?!?

cheers

[Andy_P]

Dim xmlpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Playlists"
 
Dim xmlfiles As String() = System.IO.Directory.GetFiles(xmlpath, "*.xml")
 
For Each xmlfile As String In xmlfiles
    lstMyPlaylists.Items.Add(Path.GetFileName(xmlfile))
Next xmlfile

[sotusotusotu]

Dim xmlpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Playlists"
 
Dim xmlfiles As String() = System.IO.Directory.GetFiles(xmlpath, "*.xml")
 
For Each xmlfile As String In xmlfiles
    lstMyPlaylists.Items.Add(Path.GetFileName(xmlfile))
Next xmlfile

I get error "path" is not declared?!?

[Andy_P]

Apologies, you need to put 'System.IO.Path', in place of 'Path'

Dim xmlpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Playlists"
 
Dim xmlfiles As String() = System.IO.Directory.GetFiles(xmlpath, "*.xml")
 
For Each xmlfile As String In xmlfiles
    lstMyPlaylists.Items.Add([B][COLOR=Red]System.IO.Path[/COLOR][/B].GetFileName(xmlfile))
Next xmlfile

Alternatievely, type the line 'Imports System.IO' at the top of the form you are running this code in.


Hope that helps!



Edit: Seems you have asked the question again, sorry for taking a while to get back to you.

[sotusotusotu]

Code sort of works well, however i have to still type in "\Uni Work\Year 3\PRMM301\program\vb\eJukebox_New\Backup\Backup\bin\playlists" as it will only go as far as "C:\Documents and Settings\Andy\My Documents\"

Here is my code:

Dim xmlpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\Uni Work\Year 3\PRMM301\program\vb\eJukebox_New\Backup\Backup\bin\playlists"
 
            Dim xmlfiles As String() = System.IO.Directory.GetFiles(xmlpath, "*.xml")
 
            For Each xmlfile As String In xmlfiles
                lstMyPlaylists.Items.Add(System.IO.Path.GetFileName(xmlfile))
            Next xmlfile

[Andy_P]

This will look in all directories under MyDocuments and find all XML files...

Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
 
Dim dirs As String() = System.IO.Directory.GetDirectories(userpath)
 
For Each dir As String In dirs
 
    Dim xmlfiles As String() = System.IO.Directory.GetFiles(dir, "*.xml")
 
    For Each xmlfile As String In xmlfiles
        ListBox1.Items.Add(System.IO.Path.GetFileName(xmlfile))
    Next xmlfile
 
Next dir

Is that what you are looking to do?

[sotusotusotu]

Thanks mate.

Well it finds another .xml file in this folder now: C:\Documents and Settings\Andy\My Documents\Adlm

I was just wondering why it only goes as far as my documents rather than just finding looking inside the directory its in for the folder "playlists"?

By the way i used to live in leighton buzzard, small world!

[Andy_P]

OK, try this code out.

This should look for any directory called "Playlists" in the MyDocuments tree and pick out the XML files contained when you click the button.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    lstMyPlaylists.Items.Clear()
 
    Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
 
    Dim startPath As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(userpath)
 
    SearchDirectory(startPath)
 
End Sub
 
Private Sub SearchDirectory(ByVal dir As System.IO.DirectoryInfo)
 
    If dir.FullName.EndsWith("\Playlists") Then
 
        For Each xmlfile As System.IO.FileInfo In dir.GetFiles("*.xml")
            lstMyPlaylists.Items.Add(xmlfile)
        Next xmlfile
 
    End If
 
    'Recursively search all subdirectories
    For Each subdir As System.IO.DirectoryInfo In dir.GetDirectories
        SearchDirectory(subdir)
    Next subdir
 
End Sub

PS It certainly is a small world, etc, etc!

[sotusotusotu]

Tried that code but nothing appears in lstMyPlaylists listbox for some reason?

[Andy_P]

I just edited the post - I had the code looking for "\Temp" instead of "\Playlists".

I also edited the name of the listbox to lstMyPlaylists

Try it again with those corrections!

[sotusotusotu]

Being more specific, its writes the xml properly and saves in the dir, however the results are not display in the listbox. Also no errors compiling or running are displayed.

cheers

[sotusotusotu]

Tried \Playlists and still nothing!

[sotusotusotu]

works! sorry mate my mistake i put in \Playlists instead of \playlists!

Stupid me!

Thanks alot.

Is it possible to get it to display just the filemame and not the extension?

[Andy_P]

Change the list box items add line to this:

lstMyPlaylists.Items.Add(System.IO.Path.GetFileNameWithoutExtension(xmlfile.ToString))

[sotusotusotu]

Perfect!

your a good man!

Regards, Andy

[Andy_P]

No probs.