Dateisucherergebnis als Collection

11/12/2012 - 11:25 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte ein Suchergebnis von Dateien als eine Collection wiedergeben.

Ich habe dazu folgende Function:

Public Function FindFiles(sPath, Optional sSearchExtension As String "*.*", Optional Attributes As VbFileAttribute = vbNormal) As Collection
Dim tColl As Collection
Dim sName As String

sName = Dir(sPath & "\" & sSearchExtension, Attributes)

Do While sName <> ""
tColl.Add sName
sName = Dir()
Loop

Set FindFiles = tColl

End Function


Aufgerufen werden soll diese in einer anderen Prozedur:

Dim sFilename as Collection
set sFilename = FindFiles("C:\Test", "*.*", vbNormal)

Mein Problem ist, dass in der Function FindFiles immer nach

tColl.Add sName

die gesamte Function verlassen wird.
Es wird also nicht das gesamte Verzeichnis durchsucht.

Hat einer eine Idee woran das liegen kann?

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
Win7 Prof. 64bit / MS-Office 2010 Prof. 32bit
 

Lesen sie die antworten

#1 Ahmed Martens
11/12/2012 - 11:33 | Warnen spam
Nachtrag:

Der Fehler lautet immer:

Laufzeitfehler '91':

Objektvariable oder With-Blockvariable nicht festgelegt.


Gruß Ahmed
Antworten bitte nur in der Newsgroup.
Win7 Prof. 64bit / MS-Office 2010 Prof. 32bit

Ähnliche fragen