MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 29.06.2017, 13:01   #1
Tomte2301
Neuer Benutzer
Neuer Benutzer
Standard VBA - Userform mit 2 Listen

Hallo zusammen,

ich bin noch relativ neu in VBA und hänge momentan an einem Problem.
Und zwar habe ich eine Userform erstellt, welche aus mehreren Button und 2 Listen erstellt. Das Tool soll nun folgendes machen:
Klicke ich auf einen Button, so sollen alle Unterordner eines bestimmten Verzeichnis aufgelistet werden.
Wählt man dann in dieser Liste einen Unterordner aus, so sollen die sich darin befindlichen Dateien in der Listbox2 auflisten.

Die Auflistung der Unterordner in Listbox 1 klappt bisher. Eine automatische Auflistung der Dateien von diesem Unterordner jedoch nicht.
Könnte mir hier jemand bitte behilflich sein, oder hat Ideen dazu ?

Hier mein Code, den ich bisher habe um die Listen zu befüllen.

Code:

Sub OrdnerListen(strOrdner2)
   
    Dim Ordner
    Dim FSO As Object
    Dim arrDateien()
    Dim intDateien
    Dim arrDateien2()
    Dim intDateien2
    Dim intCounter As Integer
    Dim strName
   
    
    Set FSO = CreateObject("Scripting.filesystemobject")
   
    For Each Ordner In FSO.getfolder(strOrdner2).subfolders
        
         intDateien = intDateien + 1
      ReDim Preserve arrDateien(1 To intDateien)
      arrDateien(intDateien) = Ordner.Name
      
        FormVertrag.ListBox1.AddItem arrDateien(intDateien)
        
    Next
    
    For intCounter = 0 To FormVertrag.ListBox1.ListCount - 1
      If FormVertrag.ListBox1.Selected(intCounter) Then
      
        strName = strOrdner2 & "" & arrDateien(intDateien)
        
      Do While strName <> ""
      intDateien2 = intDateien2 + 1
      ReDim Preserve arrDateien2(1 To intDateien2)
      arrDateien2(intDateien2) = strName
      strName = Dir()
    Loop
    End If
   Next intCounter
   
   For intCounter = 0 To UBound(arrDateien2)
      FormVertrag.ListBox2.AddItem arrDateien2(intDateien2)
   Next
        
 
End Sub
Tomte2301 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.07.2017, 13:45   #2
rastrans
MOF Koryphäe
MOF Koryphäe
Standard

Code:

Option Explicit

Const mc_Pfad = "C:Windows"

Private Sub CommandButton1_Click()
    Dim fso As New FileSystemObject
    Dim dirOrdner As Folder
    
    Me.ListBox1.Clear
    
    For Each dirOrdner In fso.getfolder(mc_Pfad).subfolders
        Me.ListBox1.AddItem dirOrdner.Name
    Next
End Sub

Private Sub ListBox1_Change()
    Dim fso As New FileSystemObject
    Dim dirOrdner As File
    
    Me.ListBox2.Clear
    
    For Each dirOrdner In fso.getfolder(mc_Pfad & Me.ListBox1.Value).Files
        Me.ListBox2.AddItem dirOrdner.Name
    Next
End Sub
CommandButton1 füllt dir die ListBox1 mit den Verzeichnissen.
Wenn du etwas in ListBox1 auswählst, dann wird Listbox2 mit den Datei gefüllt.

__________________

There are 10 different types of people in the world. Those who understand the binary system and those who not.

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.
Übrigens : Hilfreiche und positive Beiträge kann man auch bewerten!
rastrans ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:40 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.