Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der Dateien in einem Ordner ermitteln

Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 14:57:58
sven
Hallo,
Ich möchte gerne wissen wieviel dateien in einem ordner sind?
Diesen Wert möchte ich dann gerne dazu benutzen, eine schleife so oft durchzulauen zu lassen wie dieser Wert ist.
Am besten mit einer For To-Schleife denke ich mir.
MFG Sven

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:07:24
Eule
Hi Sven
eine von vielen Möglichkeiten:

Sub DateienZaehlenVariante2()
Dim sOrdner As String
Dim intz As Integer
sOrdner = "c:\Temp\*.*"
sOrdner = Dir(sOrdner)
sOrdner = "C:\TEMP"
Do While sOrdner <> ""
intz = intz + 1
sOrdner = Dir()
Loop
MsgBox "Im angegebenen Ordner befinden sich " & _
intz & " Dateien", vbInformation
End Sub

Gruss Eule
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:07:47
MichaV
Hallo,
FileSearch-Objekt
Stellt die Funktionen des Dialogfeldes Öffnen (Menü Datei) dar.
Verwenden des FileSearch-Objekts
Verwenden Sie die FileSearch-Eigenschaft, um das FileSearch-Objekt zurückzugeben. Im folgenden Beispiel wird nach Dateien gesucht, und Anzahl und Namen der gefundenen Dateien werden angezeigt.

With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:11:36
sven
wo kann ich den in deinem beispiele einen festen ordner einbauen?
gruß sven
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:13:29
MichaV
Hallo,
schonmal einen Blick in die Online- Hilfe erwogen?
Beispiel zur LookIn-Eigenschaft
In diesem Beispiel wird der Ordner My Documents nach allen Dateien durchsucht, deren Namen mit cmd beginnt, und Name und Pfad jeder gefundenen Datei wird angezeigt.

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "cmd*.*"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige

120 Forumthreads zu ähnlichen Themen

Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Anzeige
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
mehrere CSV-Dateien in einem Ordner splitten
Teck

Hallo Excel Experten,
auch nach stundenlangem Suchen auf diversen Excel-Seiten, bin ich leider nicht auf eine Lösung meines Problems gestoßen.
Mein Ziel ist es, mehrere CSV Dateien, die möglicherweise Überlänge haben (mehr als 65.536 Zeilen), aber alle in einem Ordner gespeichert sind,...
19.08.2009 13:00:31
Thread-ID: 1097079
4 Beiträge
Anzahl dateien in einem Ordner
Christian

Hallo alle zusammen,
würde mich freuen, wenn Ihr mir mal wieder aus der Patsche helfen könntet. Habe folgendes Problem.
Würde wissen wieviele Dateien eines bestimmten Typs wie z.B *.tra in einem Ornder sind. Wie kann ich das machen?
Gruß Christian
07.09.2009 17:09:36
Thread-ID: 1101067
2 Beiträge
Umbenennen von Dateien in einem Ordner
Dateien

Hallo,
ich habe folgende Frage:
Ich nutze Excel 2007.
Ich habe einen Ordner mit über 100 Excel-Dateien. Diese sollen so umbenannt werden, daß an den vorhandenen und unterschiedlich langen Dateinamen vier Buchstaben angehangen werden sollen.
Gibt es eine Möglichkeit dieses zu aut...
04.06.2010 13:20:53
Thread-ID: 1160328
4 Beiträge
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
6
1
14
3
3
3
1
3
22
2
4
4
2
8
3
13
5
5
2
10
4
4
3
1