Anzahl von Dateien

Private Declare PtrSafe Function SearchTreeForFile Lib "imagehlp.dll" ( _ ByVal RootPath As String, _ ByVal InputPathName As String, _ ByVal OutputPathBuffer As String) As Long Private Const MAX_PATH As Long = 260& Private Const FOLDER_PATH As String = "D:\AZN\" ' Anpassen !!!!!!!!!!!!!!!! Public Function SearchFile(ByVal pvstrFileName As String) As String Dim strTemp As String * MAX_PATH Dim lngReturn As Long lngReturn = SearchTreeForFile(FOLDER_PATH, "*" & pvstrFileName & "*", strTemp) If lngReturn = 0 Then SearchFile = "Nein" Else SearchFile = "Ja" End If End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function AnzDat(Ordner, ByVal such As String) As Long Application Volatile Dim anz As Long Dim fso As Object Dim path As Object Dim DatList As Object Dim Dat As Object Dim le, leda Set fso = CreateObject("scripting.FileSystemObject") Set path = fso.GetFolder(Ordner) Set DatList = path.Files le = Len(such) For Each Dat In DatList If Not Dat Is Nothing Then leda = Len(Dat.Name) If Left(Dat.Name, le) = such Then anz = anz + 1 ActiveSheet.Cells(anz, 1) = Dat.Name End If End If Next Dat AnzDat = anz End Function

Option Explicit Public Function AnzDat(Ordner, ByVal such As String) As Long Application.Volatile Dim anz As Long Dim fso As Object Dim path As Object Dim DatList As Object Dim Dat As Object Dim le, leda Set fso = CreateObject("scripting.FileSystemObject") Set path = fso.GetFolder(Ordner) Set DatList = path.Files le = Len(such) For Each Dat In DatList If Not Dat Is Nothing Then leda = Len(Dat.Name) If Left(Dat.Name, le) = such Then anz = anz + 1 ' ActiveSheet.Cells(anz, 1) = Dat.Name End If End If Next Dat AnzDat = anz End Function

Hallo
Ich habe die Function von onur und Hajo in ein Sub umgeschrieben: Es soll mir die Anzahl der Dateien eines bestimmten Ordners ausgeben, die mit "test" beginnen, und diese Dateien in eine Tabelle schreiben.

Sub AnzahlDateien2()
Dim pfad As String, such As String
Dim anz As Long
Dim fso As Object
Dim path As Object
Dim DatList As Object
Dim Dat As Object
Dim le, leda
pfad = "D:\Documents\Varia\"
such = "test"
Range("A1") = pfad
Range("B1") = such
Application.Volatile
Set fso = CreateObject("scripting.FileSystemObject")
Set path = fso.GetFolder(pfad)
Set DatList = path.Files
le = Len(such)
For Each Dat In DatList
If Not Dat Is Nothing Then
leda = Len(Dat.Name)
If Left(Dat.Name, le) = such Then
anz = anz + 1
Cells(anz + 1, 1) = Dat.Name
End If
End If
Next Dat
Range("C1") = anz
End Sub

Nun erhalte ich 18 als Resultat auch wenn ich sie ermittle mit der
Function AnzDat(Ordner, ByVal such As String) As Long
Effektiv aber sind es 29 Dateien.
In Spalte E sind mit #NV diejenigen Dateien bezeichnet, die nicht gezählt wurden.
Userbild

Ich hänge auch die entsprechende Datei an. Dort auch mit einem Printscreen aus dem Windows-Explorer.
Könnt Ihr mir sagen, wie es zu dieser Differenz kommt? Was ich falsch gemacht habe in meinem Makro?
Vielen Dank Niclaus
https://www.herber.de/bbs/user/139422.xlsm

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread