Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordnername eines Verzeichnes auslesen

Forumthread: Ordnername eines Verzeichnes auslesen

Ordnername eines Verzeichnes auslesen
29.09.2006 12:07:51
Sebastian
Hallo,
in meiner Variablen "Path" steht z.B. C:\Testdaten\
Wie ist es möglich, mir die Namen aller in diesem Verzeichnis enthaltenen Ordner, welche mit "A" beginnen in einer Listbox anzeigen zu lassen?
Viele Grüße und Danke,
Sebastian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:27:18
Rudi
Hallo,

Sub ordnerliste()
Dim oFS As Object, oFolder As Object, oFldr As Object
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder("n:\test")
For Each oFldr In oFolder.subfolders
If Left(oFldr.Name, 1) = "A" Then
Sheets(1).ListBox1.AddItem oFldr.Name
End If
Next
End Sub

Gruß
Rudi
Anzeige
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:32:17
IngGi
Hallo Sebastian,
so kannst du z.B. eine Listbox auf einer UserForm mit den Namen der Unterordner füllen:

Sub Unterordner()
Dim Path As String
Dim fso As Object
Dim fo As Object
Dim sfo As Object
Path = "C:\Temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(Path)
For Each sfo In fo.Subfolders
UserForm1.ListBox1.AddItem sfo.Name
Next 'sfo
UserForm1.Show
End Sub
Gruß Ingolf
Anzeige
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:47:18
ingUR
... und ohne CreateObject("Scripting.FileSystemObject")
Pfad1 = "C:\Testdaten\"
Name1 = Dir(Pfad1, vbDirectory)
Do While Name1 <> ""
If Name1 <> "." And Name1 <> ".." Then
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
If Left(Name1, 1) = "A" Then ListBox1.AddItem Name1
End If
End If
Name1 = Dir
Loop

Gruß!
Anzeige
;

Forumthreads zu verwandten Themen

Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Anzeige
Ordnername
Benedikt

Guten Abend zusammen
Nachfolgende Formeln geben den Wert hhhhhhh aus nachfolgendem Dateipfad in ein Tabellenblatt.
Sobald aber der Name länger oder kürzer ist haut dass nicht.
Kann man die Länge des Namen irgendwie variabel gestalten?
=ZELLE("Dateiname")
= TEIL(E13;23;FINDEN...
04.05.2009 19:26:54
Thread-ID: 1072882
3 Beiträge
Ordnernamen auslesen mit VBA
Franz

Hallo Fachleute,
ich hab gestern mit Eurer Hilfe einen Code zum Auflisten von Dateien im aktuellen Ordner verfeinert:
Sub auflisten() Dim iCounter As Integer Dim sPath As String sPath = ThisWorkbook.Path Columns("B:B").ClearContents With Application.FileSearch .NewSearch '.FileType = ms...
28.10.2009 09:40:03
Thread-ID: 1112692
8 Beiträge
Ordnernamen auslesen - hänge fest
Andreas

Hallo Excel Freunde,
heute morgen dachte ich mir: „Hmm, bei den großen Datenmengen die sich so ansammeln, wäre es mal nett, einen kleinen Katalog eines Verzeichnisses auf der Festplatte anzulegen…“ Ordnername und dessen Größe würde mir reichen. So weit die Theorie. Das mir das so die Laune...
09.11.2009 10:55:46
Thread-ID: 1115468
6 Beiträge
Ordnernamen auflisten
steffen

Hallo in die Runde,
ich habe in der Recherche folgenden Code gefunden:
Sub ShowFolderName() Dim FSyObjekt As Object, FoObjekt As Object Set FSyObjekt = CreateObject("Scripting.FileSystemObject") Set FoObjekt = FSyObjekt.GetFolder("D:\Eigene Dateien\Test") MsgBox FoObjekt.Name End Sub I...
18.06.2010 14:24:58
Thread-ID: 1162778
3 Beiträge
Ordnernamen eines bestimmten Pfades (ohne Subfolde
Peter

Guten Tag
Mit untenstehendem Code liste ich mir alle Dateinamen auf, welche am gleichen Ordner abgelegt sind, wie die Datei, in welchem der Code steckt.
Nun möchte ich anstelle der Dateinamen alle Ordner (ohne Unterordner) die im entsprechenden Ordner abgelegt sind, ausgeben.
Was mu...
23.09.2010 08:11:06
Thread-ID: 1179015
3 Beiträge
Ordnernamen (teileweise) in Bildnamen übernehmen
Lemmi

Hallo zusammen,
ich habe eine Ordnerstruktur mit Unterverzeichnissen in den thematisch Bilder abgelegt sind. Diese sollen eine Identifikations- Nr. erhalten.
Die Identifikationsnummer ist sechstellig.
Beispiel:
Ordner: Projekt ABC
U-Ordner1: 01_Haus
01_001 Bild1 Datum...
15.11.2012 15:24:25
Thread-ID: 1286840
13 Beiträge
Ordnernamen auflisten
Franz

Hallo zusammen,
ich bin auf der Suche nach einem Makro, was zu einem Ordner - den ich in Excel vorgebe - die Unterordner in Excel aufliste.
Beispiel: Ordner: P:\Privat
Hier bestehen nun zwei Unterordner:
P:\Privat\Dokumente\Excel
P:\Privat\Tabellen
Aufgelistet werden müs...
18.11.2012 18:39:42
Thread-ID: 1287198
6 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Ordnernamen einlesen, in Tabelle kopieren
dieter
Hey all,
Ich habe ein kleines Problem damit das ich zwar Ordnernamen einlesen und diese dann auch in eine Tabelle kopieren kann, aber ich bin gezwungen nur den in dem Vba gesetzten Laufwerksbuchstaben zu nehmen. Ich möchte aber gerne mit der Auswahl variabel sein.
Kann könnte mir da einer b...
18.10.2014 18:52:35
Thread-ID: 1387340
6 Beiträge
Anzeige
Ordnernamen einlesen
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...
06.08.2015 08:05:27
Thread-ID: 1440627
5 Beiträge
Ordnername aus Name entfernen
Thomas

Hallo Excelfreunde,
ich habe ein super Makro gefunden.
Mit dem kann man das aktuelle Tabellenblatt als Mail versenden.
Es hat nur noch ein schönheitsfehler der ordnername steht mit im Dateiname.
Kann jemand das Makro so ändern das nur der Blattname benutzt wird?
pdfName2 = A...
04.10.2015 14:36:59
Thread-ID: 1450699
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige