dotNETportal.cz

Zdravím,

mam jen malou prosbičku, potřebuji do listboxu dostat výpis složek, ze složky u programu. Mám složku STATION a v ní se nacházejí další složky(Ziznikov, CeskeZlatniky), jedná se o to že do budoucnosti plánuji stanice přidávat a chtěl bych listbox kde bych si stanici vybral. Tyto složky mají podsložky ale ty vypisovat nechci.

Použil jsem tohle

Private Sub Info_Button_Click(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles Info_Button.Click
        Dim slozky As Collections.ObjectModel.ReadOnlyCollection(Of String) = _
        Microsoft.VisualBasic.FileIO.FileSystem.GetDirectories(My.Application.Info.DirectoryPath & TS_SlozkaStanic, FileIO.SearchOption.SearchTopLevelOnly)

        Dim i As Integer
        For i = 0 To slozky.Count - 1
            lbSeznamStanic.Items.Add(slozky(i))
        Next

    End Sub

vše je fajn, až na to že to vypisuje kompletní cestu c:\program\......\station\slozka1

c:\program\......\station\slozka2

potřeboval bych vypsat jen

slozka1

slozka2

atd...

protože budu vybraný item listboxu ukládat do souboru a z toho souboru si to bude načítat jiný program.

Dobrý den,

možná by Vám mohla pomoci fce

System.IO.Path.GetFileName

přečetl jsem si

http://www.vbnet.cz/blog-clanek--160-net...

http://www.vbnet.cz/blog-clanek--161-net...

a na řešení jsem nepřišel

Děkuji tohle bylo přesně to co jsem potřeboval. Kdyby to někdo taky potřeboval tak sem dám i můj kód

Private Sub Info_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Info_Button.Click

        Dim slozky As Collections.ObjectModel.ReadOnlyCollection(Of String) = _
        Microsoft.VisualBasic.FileIO.FileSystem.GetDirectories(Application.StartupPath & TS_SlozkaStanic, FileIO.SearchOption.SearchTopLevelOnly)

        Dim i As Integer
        For i = 0 To slozky.Count - 1
            lbSeznamStanic.Items.Add(slozky(i).Substring(slozky(i).LastIndexOf("\") + 1))
        Next

    End Sub

Možná vám pomůže toto

    Sub slozky(ByVal dir As String)
        Dim startDir As New IO.DirectoryInfo(dir)
        Try
            For Each directory As IO.DirectoryInfo In startDir.GetDirectories()
                ListBox1.Items.Add(directory.Name & Environment.NewLine)
            Next
        Catch ex As UnauthorizedAccessException
            'Chyba oprávnění k procházení složkou
            MsgBox("Chyba oprávnění")
        End Try
    End Sub

volání:

slozky("C:\...")

I Vám děkuji... taktéž funguje, přemýšlím co bude pro mě lepší jestli ta moje varianta nebo vaše řešení