Jak vytvořit stromovou strukturu složek? Jednoduše!
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Jak vytvořit stromovou strukturu složek? Jednoduše!Jak vytvořit stromovou strukturu složek? Jednoduše!

 
Hledat
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Pergoly a střechy Brno

Jak vytvořit stromovou strukturu složek? Jednoduše!

Google       Google       11. 4. 2007       22 143×

Ukládá vaše aplikace cokoliv na disk a uživatel si umístění vybírá? Pak se vám určitě bude hodit tato malá vychytávka. Ukážeme si, jak vytvořit stromovou strukturu složek na disku.

Reklama
Reklama

Ze všeho nejdříve si musíme k projektu připojit knihovnu pro práci se soubory. To uděláme velice jednoduše: Project → References → Microsoft Scripting Runtime.

Dále budeme potřebovat samotný TreeView: Project → Components → Microsoft Windows Common Controls 6.0 SP4. Nyní z Toolboxu vybereme TreeView a umístíme na formulář. Ve vlastnostech nastavíme LineStyle = 1, Style = 6.

Do události formuláře Form_Load() vložíme kód, který nám při načtení formuláře zobrazí kořenovou složku C:/. Tím, že načteme i její podsložky, se nám u C:/ objeví znaménko „+“ pro rozevírání:

Private Sub Form_Load()
Dim fso As New FileSystemObject, slozka As Folder, PodSlozky As Folders, objekt As Variant

Set slozka = fso.GetFolder("C:/") "proměnná se nastaví na kořenovou složku
Set PodSlozky = slozka.SubFolders "získáme kolekci podsložek kořenové složky

TreeView1.Nodes.Add , , slozka.Path, slozka.Path "zobrazí kořenovou složku

For Each objekt In PodSlozky "procházím kolekci podsložek
    With TreeView1
        .Nodes.Add slozka.Path, tvwChild, objekt.Path, objekt.Name "načteme podsložky kořenové složky, ty se ale zobrazí až pro rozevření
    End With
Next objekt

Form1.Show

End Sub

A nyní potřebujeme při každém kliknutí na znaménko „+“ načíst podsložky těch složek, které se nám právě zobrazí, aby se i u nich zobrazilo znaménko plus:

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Dim fso As New FileSystemObject, slozka As Folder, PodSlozky As Folders, objekt As Variant, objekt2 As Variant

On Error Resume Next 
Set slozka = fso.GetFolder(Node.FullPath) "nastavíme na složku, na kterou jsme klikli
Set PodSlozky = slozka.SubFolders "získáme kolekci podsložek složky

For Each objekt In PodSlozky "procházíme kolekci podsložek
    If objekt.Name <> "System Volume Information" Then ‘systém nás nemá rád 
    For Each objekt2 In objekt.SubFolders "procházíme kolekci podsložek podsložek složky
        With TreeView1
        .Nodes.Add objekt.Path, tvwChild, objekt2.Path, objekt2.Name "načteme tyto složky
        End With
    Next objekt2
    End If
Next objekt
End Sub

Nyní stačí pouze nadeklarovat globální proměnnou v sekci Declarations:

Dim oznaceno as string

Poté na formulář vložte tlačítko a do události Command1_Click() vložte jednoduchý kód.

oznaceno = TreeView1.SelectedItem.FullPath & "\"

Tímto se vám cesta uloží do proměnné.

Kód počítá pouze s kořenovou složkou C:, lze ho ale snadno upravit i na další disky.

Výsledek by mohl vypadat i nějak takto:

Doufám, že vám tato maličkost bude užitečná.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

4 názory  —  4 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
Autor rád programuje, trochu umí Visual Basic, učí se C# a ASP.NET, zajímá se o vše kolem počítačů.

Nové články

Obrázek ke článku Konference: Moderní informační systémy podporují automatizaci

Konference: Moderní informační systémy podporují automatizaci

Současná situace v šíření onemocnění Covid-19 klade na řadu firem nové nároky a mnohé z nich jsou nyní více než kdy jindy závislé na nejmodernějších informačních technologiích. Proto i v oblasti podnikových informačních systémů vidíme rostoucí důraz na automatizaci nebo na důslednou integraci. Také o těchto trendech se bude mluvit na konferenci Firemní informační systémy, která se koná 24.9.2020 v pražském Kongresovém centru Vavruška na Karlově náměstí.

Reklama
Reklama
Obrázek ke článku Nebezpečí ukrytá v USB: z nuly na škvarek za pět sekund

Nebezpečí ukrytá v USB: z nuly na škvarek za pět sekund

Za cenu šesti dolarů lze celkem bez obtíží koupit nový, líbivě vyhlížející flash disk. Přidaná hodnota, které se vám spolu s ním dostane, už tak moc líbivá není. To, co se před pár sekundami tvářilo jako externí disk, se po připojení k počítači změní v důmyslné elektrické křeslo, které vaše zařízení v onen příslovečný škvarek promění za pár sekund. Cílovou skupinou pro koupi takových zařízení by mohli být záškodníci, kteří by tímto způsobem osnovali pomstu třeba vůči záletnému partnerovi. 

Obrázek ke článku Znalosti, dovednosti i prestižní titul MBA: Jde to i moderně a online

Znalosti, dovednosti i prestižní titul MBA: Jde to i moderně a online

Snad nikdy není špatná příležitost na investici do hodnotného vzdělání. Obzvlášť v případě, že absolvent dovede teoretické poznatky přetavit v praktické dovednosti, využitelné při řešení problémů i v komunikaci. Právě na to se specializuje studijní program MBA Řízení informačních technologií, vyučovaný na Business Institutu.

Obrázek ke článku Coding Bootcamp Praha: Obor IT krize nepoznamenala, žádaní jsou weboví vývojáři

Coding Bootcamp Praha: Obor IT krize nepoznamenala, žádaní jsou weboví vývojáři

Pandemie Covid-19 otřásla trhem práce v základech. Dopady krize pocítilo celkově až 45 % zaměstnanců. Není divu, že čím dál větší jistotu přináší obor IT. Ten zůstal krizí téměř nepoznamenán a při nutnosti začít dělat věci na dálku se ještě více ukázalo, jak moc mnohé firmy kvalitní IT potřebují. Do IT nyní přicházejí začátečníci, kteří v něm vidí lukrativní budoucnost a jistotu, ale i freelanceři a zaměstnanci z oborů zasažených krizí

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý