|
Hallo an alle!
Nachdem mir die Suchfunktion und Google leider keine Verständliche Lösung geboten hat
bitte ich hier um eure Hilfe. (liegt bestimmt auch an meinem nur rudimentären VBA-Wissen)
Folgendes Problem:
Ich befülle in Powerpoint über einen CommandButton eine Listbox. Diese wird mit dem Inhalt
eines Ordners befüllt. So das in der Listbox alle Dateien zu sehen sind, welche sich in dem Ordner
befinden. Dazu habe ich ein Sub für den CommandButton und ein Sub für die Listbox.
Es gibt mehrere CommanButton welche die selbe Listbox mit unterschiedlichen Ordnerinhalten befüllen.
(Anmerkung: Der Inhalt der Listbox wird dabei bei jedem CommandButton gelöscht bevor neu
befüllt wird)
Wie bekomme ich es jetzt hin, dass die Listbox sortier gefüllt wird? Dabei können sowohl Buchstaben
und Zahlen am Anfang der Datei stehen.
Danke für eure Hilfe
Als Ergänzung der Code der Sub's:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Private Sub CommandButton6_Click()
Dim Datei
Dim Ordner
Dim FSO As Object
verz = "C:\Weiterbildung"
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei In FSO.getfolder(verz).Files
Me.ListBox1.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(verz).subfolders
Me.ListBox1.AddItem Ordner.Name
Next
End Sub
|
Private Sub ListBox1_click()
Dim TaskID As Long
Dim i As Integer
Dim filename As String
Dim path As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
' Debug.Print i
filename = ListBox1.List(i)
path = verz & "\" & filename
Call ShellExecute(GetDesktopWindow(), "Open", path, "", "", 1)
Exit For
Else
End If
Next i
End Sub
|