Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ordnernahmen und Dateinamen
Autor: Lupu
Datum: 07.03.20 14:05
Hallo Leute Ich bin Anfänger in VB NET: Mache gerade meine ersten geh versuche. Habe mir ein kleines Programm zusammen gebastelt, da was so manche aus dem ff heraus machen. Es funktioniert auch soweit, ist zwar unschön aber es funktioniert. Es wird ein bestimmter (Voreingestellter Pfad) auf Ordner und unter Ordner durchsucht und in Combobox, List box eingetragen. Wie schon erwähnt es funktionier, allerdings nur so dass der ganze Pfad angezeigt wird. Schön wäre das ganze wen man nur den Ordnernahmen und Dateinamen in den Boxen sehen würde. Hier mein Code: Vielleicht hat ja jemand Lust sich das anzusehen. Partial Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Schluessel_lesen_32bit() Unterordner_auslesen() ComboBox1.SelectedIndex = 0 ComboBox2.Visible = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Pfadauswählen() End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Enttarnen() ListBox1.Items.Clear() Lisbox_Füllen_C1() Unter_Unter_Ordner_auslesen() End Sub 'Pfad auswählen Private Sub Pfadauswählen() 'Pfad auswählen Dim AppShell As Object Dim BrowseDir As Object Dim Pfad As String AppShell = CreateObject("Shell.Application") BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17) On Error Resume Next Pfad = BrowseDir.items().Item().Path If Pfad = "" Then Exit Sub On Error GoTo 0 Label1.Text = Pfad End Sub 'Schlüssel erstellen Private Sub Schluessel_32bit_erstellen() 'Schlüssel erstellen Using regKey As RegistryKey = Registry.CurrentUser.CreateSubKey("SOFTWARE\F.K-Tool\Pfad", RegistryKeyPermissionCheck.Default) regKey.SetValue("LANGUAGE", Label1.Text, RegistryValueKind.String) regKey.Close() End Using End Sub 'Schlüssel lesen Private Sub Schluessel_lesen_32bit() 'Schlüssel lesen Dim sregKey As String = "" Using regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\F.K-Tool\Pfad", False) If regKey IsNot Nothing Then sregKey = regKey.GetValue("LANGUAGE", False).ToString End If End Using Label1.Text = sregKey End Sub 'Unterordner auslese Private Sub Unterordner_auslesen() 'Unterordner auslese On Error GoTo ErrorHandler ComboBox1.Items.AddRange(System.IO.Directory.GetDirectories(Label1.Text)) ErrorHandler: End Sub Private Sub Unter_Unter_Ordner_auslesen() 'Unter Unter Ordner auslesen Dim selectedIndex As Integer selectedIndex = ComboBox1.SelectedIndex Dim selectedItem As Object selectedItem = ComboBox1.SelectedItem.ToString ComboBox2.Items.Clear() ComboBox2.Items.AddRange(System.IO.Directory.GetDirectories(selectedItem)) End Sub Private Sub Enttarnen() 'Combobox2 Enttarne If ComboBox2.Items.Count = 0 Then ComboBox2.Visible = True Else ComboBox2.Visible = False End If End Sub Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged ListBox1.Items.Clear() Lisbox_Füllen() End Sub 'Listbox Füllen Private Sub Lisbox_Füllen() Dim selectedIndex As Integer selectedIndex = ComboBox2.SelectedIndex Dim selectedItem As Object selectedItem = ComboBox2.SelectedItem For Each File In System.IO.Directory.GetFiles(selectedItem, "*.txt*") ListBox1.Items.Add(File) Next End Sub 'Lisbox_Füllen_C1 Private Sub Lisbox_Füllen_C1() Dim selectedIndex As Integer selectedIndex = ComboBox1.SelectedIndex Dim selectedItem As Object selectedItem = ComboBox1.SelectedItem For Each File In System.IO.Directory.GetFiles(selectedItem, "*.txt*") ListBox1.Items.Add(File) Next End Sub Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick Dim selectedIndex As Integer selectedIndex = ListBox1.SelectedIndex Dim selectedItem As Object selectedItem = ListBox1.SelectedItem Process.Start(ListBox1.SelectedItem) End Sub End Class

Ordnernahmen und Dateinamen	785	Lupu	07.03.20 14:05
Re: Ordnernahmen und Dateinamen	368	Manfred X	07.03.20 14:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen