Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordnernamen einlesen

Ordnernamen einlesen
06.08.2015 08:05:27
Ludmila
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnernamen einlesen
06.08.2015 08:22:26
Sepp
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

Anzeige
AW: Ordnernamen einlesen
06.08.2015 09:14:08
Ludmila
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

AW: Ordnernamen einlesen
06.08.2015 09:16:43
Sepp
Hallo Ludmila,
na dann eben .Name statt .Path
Gruß Sepp

AW: Danke, so einfach o.T.
06.08.2015 09:33:56
Ludmila
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige