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

Anzahlvon .htm dateien

Anzahlvon .htm dateien
30.04.2006 15:37:40
.htm
hallo,
ich möchte wissen,wie man die anzahl der .htm dateien in einen bestimmtem ordner erhält.
z.b.:
in meinem ordner C:\test\menge sind 20.htm seiten
ich möchte aber nicht nachsehen, sondern per code nachfragen und mir die antwort in einer msgbox anzeigen lassen.
kann mir da jemand helfen
vielen dank
gruss Bernd

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahlvon .htm dateien
30.04.2006 15:53:50
.htm
Hallo Bernd,
das geht zum Beispiel so

Sub htmDateien()
Dim fso As Object
Dim fo As Object
Dim f As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\test\menge\")
For Each f In fo.Files
If Right(f.Name, 4) = ".htm" Then i = i + 1
Next 'f
MsgBox "Das Verzeichnis ""C:\test\menge\"" enthält " & i & " .htm-Dateien."
End Sub
Gruss Ingolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige