FindFiles - Kompilerfehler

27/12/2007 - 13:43 von Hubert Holler | Report spam
Ich wollte die FindFiles Funktion von http://vb-tec.de/fndfiles.htm
verwenden und habe den Code 1:1 in ein MS-Access 97 Modul kopiert.

Als ich aber dann die Funktion FindFiles aufrufen wollte erhalte ich
folgende Meldung:

Fehler beim Kompilieren:
Automatisierungstyp in Visual Basic nicht unterstützt
-

Es wird folgender Code blau markiert:

Public Function FindFiles( _
ByVal Path As String, _
ByRef Files As Collection, _
Optional ByVal Pattern As String = "*.*", _
Optional ByVal Attributes As VbFileAttribute = vbNormal, _
Optional ByVal Recursive As Boolean = True _
) As Long


Ich verwende keinen falschen Verweis.

Hoffe da kann mir jemand weiterhelfen.

Vielen Dank für jede Antwort
 

Lesen sie die antworten

#1 Gunter Avenius
27/12/2007 - 14:03 | Warnen spam
Hallo Hubert,

Hubert Holler schrieb folgendes:
Ich wollte die FindFiles Funktion von http://vb-tec.de/fndfiles.htm
verwenden und habe den Code 1:1 in ein MS-Access 97 Modul kopiert.

Als ich aber dann die Funktion FindFiles aufrufen wollte erhalte ich
folgende Meldung:

Fehler beim Kompilieren:
Automatisierungstyp in Visual Basic nicht unterstützt
-

Es wird folgender Code blau markiert:

Public Function FindFiles( _
ByVal Path As String, _
ByRef Files As Collection, _
Optional ByVal Pattern As String = "*.*", _
Optional ByVal Attributes As VbFileAttribute = vbNormal, _
Optional ByVal Recursive As Boolean = True _
) As Long




Ändere:

Optional ByVal Attributes As VbFileAttribute = vbNormal,
in:

Optional ByVal Attributes As Long = vbNormal,

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de

Ähnliche fragen