Ordnernamen einlesen

Bild

Betrifft: Ordnernamen einlesen
von: Ludmila
Geschrieben am: 06.08.2015 08:05:27

Guten Morgen,
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

Bild

Betrifft: AW: Ordnernamen einlesen
von: Sepp
Geschrieben am: 06.08.2015 08:22:26
Hallo Ludmila,

Private Sub cmdOrdnerEinlesen_Click()
Dim objFSO As Object, objFolder As Object, objSubfolder As Object
Dim sPfad As String

sPfad = "E:\Forum" '"C:\Users\Documents\Berichte\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sPfad)

With cboBerichteOrdner
  .Clear
  For Each objSubfolder In objFolder.Subfolders
    .AddItem objSubfolder.Path
  Next objSubfolder
  .ListIndex = 0
End With

Set objFolder = Nothing
Set objFSO = Nothing
End Sub


Gruß Sepp


Bild

Betrifft: AW: Ordnernamen einlesen
von: Ludmila
Geschrieben am: 06.08.2015 09:14:08
Hallo Sepp,
Danke für Deine Hilfe.
Leider wird in die ComboBox der gesamte Pfad eingelesen.
Ich bräuchte jedoch nur die Ordnernamen des Verzeichnisses.
Danke!
Gruß, Ludmila

Bild

Betrifft: AW: Ordnernamen einlesen
von: Sepp
Geschrieben am: 06.08.2015 09:16:43
Hallo Ludmila,
na dann eben .Name statt .Path

Gruß Sepp


Bild

Betrifft: AW: Danke, so einfach o.T.
von: Ludmila
Geschrieben am: 06.08.2015 09:33:56
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ordnernamen einlesen"