Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl von txt-Dateien in einem Ordner ermitteln

Anzahl von txt-Dateien in einem Ordner ermitteln
01.08.2005 18:12:07
txt-Dateien
Hallo Excelprofis,
in einem Ordner "C:\Eigene Daten\Test" befinden sich mehrere txt-Dateien.
Ist es möglich über ein Makro die Anzahl der txt-Dateien in diesem Ordner zu ermitteln, und das Ergebnis in Tabelle1 Zelle A1 einzutragen?
Vielen Dank im voraus
Rolf

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl von txt-Dateien in einem Ordner ermitte
01.08.2005 18:22:11
txt-Dateien
Hallo
Probier das mal
Option Explicit

Sub CountTXT(tarVerz As String, tarRange As Range)
Dim i As Long, verz As String
'Wechseln in Laufwerk
ChDrive Left(tarVerz, 2)
'Wechseln in Verzeichnis
ChDir tarVerz
'Dateisuche starten
With Application.FileSearch
    .NewSearch
    .LookIn = tarVerz
    .SearchSubFolders = False
    .Filename = "*.txt"
    .Execute
    tarRange = .FoundFiles.Count
End With
End Sub

Sub test()
CountTXT "C:", Range("A1")
End Sub

Dort kannst du auch gleich angeben, wo in der AKTUELLEN Tabelle das Ergebnis hin soll
Gruss Rainer
Anzeige
AW: Anzahl von txt-Dateien in einem Ordner ermitteln
01.08.2005 18:22:23
txt-Dateien
Hallo Rolf,
Option Explicit

Sub Verzeichnisse_3()
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\Hajo\Internet"    ' Suchpfad
.SearchSubFolders = False       ' Suche nicht in Unterverzeichnissen
.Filename = ".xls"              ' Dateityp nach dem gesucht wird
If .Execute() > 0 Then MsgBox .FoundFiles.Count
End With
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Anzahl von txt-Dateien in einem Ordner ermitteln
01.08.2005 19:06:11
txt-Dateien
Hallo Rames,
hallo Hajo_Zi,
die Makros funktionieren - vielen Dank
Gruss Rolf

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige