wer kann mir helfen die Ordnernamen eines Verzeichnisses in ein UF ComboBox einzulesen.(Nur die Namen)
Mein Code funktioniert nicht.
Danke!
Gruß, Ludmila
Private Sub cmdOrdnerEinlesen_Click()
Dim objFSO As Object
Dim objFolder As Object
Dim sPfad As String
Dim objSubfolder As Object, colSubfolders As Object
sPfad = "C:\Users\Documents\Berichte\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sPfad)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder In colSubfolders
With cboBerichteOrdner
.Clear
Do While objSubfolder.Name ""
.AddItem objSubfolder.Name
Loop
.ListIndex = 0
End With
Next objSubfolder
Set objFolder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
End Sub