Filesearch 07

14/01/2009 - 17:38 von Gerhard Meier | Report spam
Hallo zusammen,

den Verweis auf die MS Scripting Runtime habe ich gemacht. Ich erhalte beim
Aussühren des nachstehenden
Codes, die Lauzeitfehlermeldung 13 an folgender Stelle (Set objFolder =
objFSO.GetFolder(strfolder) ). Kann mir jemand einen Tipp geben weshalb.

Besten Dank, für jeden Tipp.

Mit freundlichen Grüssen

Gerhard

Dim I As Long

Dim fso As New FileSystemObject

Dim fil As File

Dim fol As Folder

Dim Datei As String

Dim Pfad As String

Dim objFSO As New FileSystemObject

Dim objFolder As Folder

Dim objFile As File

Dim strfolder As String

strfolder = "C:\"

Set objFSO = New FileSystemObject

Set objFolder = objFSO.GetFolder(strfolder) 'FEHLER 13

For Each objFile In objFolder.Files

Debug.Print strfolder & objFile.Name

Next objFile
 

Lesen sie die antworten

#1 Gunter Avenius
14/01/2009 - 18:06 | Warnen spam
Hallo Gerhard,

Gerhard Meier schrieb folgendes:
den Verweis auf die MS Scripting Runtime habe ich gemacht. Ich
erhalte beim Aussühren des nachstehenden Codes, die
Lauzeitfehlermeldung 13 an folgender Stelle (Set objFolder > objFSO.GetFolder(strfolder) ). Kann mir jemand einen Tipp geben
weshalb.

Besten Dank, für jeden Tipp.



http://support.microsoft.com/kb/935402
http://www.tksoft-online.de/MS-Acce...-2007.html

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

Ähnliche fragen