Hallo zusammen,
ich möchte über meine Anwendung die Anzahl an Textdokumenten (.txt) in einem Ordner zählen lassen.
Ich habe bereits diesen Code ausprobiert, aber dieser zählt alle Dateien in dem Ordner:
Dim fs As Object
fs = CreateObject("Scripting.FileSystemObject")
Dim anzahl As Integer = 0
Dim ordner As Object = fs.GetFolder("C:\\meinPfad")
Dim dateien As Object = ordner.files
For Each datei In dateien
On Error Resume Next
If fs.GetExtensionName(datei.Name) = "txt" Then
anzahl = anzahl + 1
End If
Next(datei)
TextBox1.Text = anzahl
Kann mir bitte jemand sagen, was ich an diesem Code falsch mache??
Danke
ich möchte über meine Anwendung die Anzahl an Textdokumenten (.txt) in einem Ordner zählen lassen.
Ich habe bereits diesen Code ausprobiert, aber dieser zählt alle Dateien in dem Ordner:
Dim fs As Object
fs = CreateObject("Scripting.FileSystemObject")
Dim anzahl As Integer = 0
Dim ordner As Object = fs.GetFolder("C:\\meinPfad")
Dim dateien As Object = ordner.files
For Each datei In dateien
On Error Resume Next
If fs.GetExtensionName(datei.Name) = "txt" Then
anzahl = anzahl + 1
End If
Next(datei)
TextBox1.Text = anzahl
Kann mir bitte jemand sagen, was ich an diesem Code falsch mache??
Danke