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

Ordnernamen einlesen

Forumthread: Ordnernamen einlesen

Ordnernamen einlesen
11.12.2006 11:43:55
Horst
Hi
Ich habe das Verzeichnis F:\Mail
wo verschiedene Unterordner drin sind..z.B.
\01
\02
\AC
\CF
Ich möchte alle diese Unterordner in ein Array kopieren (Ein-Spaltiger Vektor)
Wie kann ich das realisieren?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnernamen einlesen
11.12.2006 13:10:51
Matthias
Hallo Horst,
z.B. so:

Sub tt()
Const Verz = "F:\Mail\"
Dim dn As String, liste() As String, anz As Integer
dn = Dir(Verz & "*.", vbDirectory)
Do While dn <> ""
If InStr(dn, ".") = 0 Then
anz = anz + 1
ReDim Preserve liste(1 To anz)
liste(anz) = dn
End If
dn = Dir()
Loop
'nur zum Testen:
Debug.Print "Anzahl Verzeichnisse: " & UBound(liste)
For anz = 1 To UBound(liste)
Debug.Print anz, liste(anz)
Next anz
End Sub

Allerdings werden hier auch Dateinamen ohne Endung mitgezählt.
Gruß Matthias
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
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
Anzeige
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
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
Anzeige
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