Einzelnen Beitrag anzeigen
Alt 29.06.2017, 14:01   #1
Tomte2301
Neuer Benutzer
Neuer Benutzer
Standard 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