A 2016 64 bit / Typen unverträglich

[Jürgen Meyer]

Dim fso As Object
Dim objfolder As Object
Dim objfile As Object
Dim colfiles As Collection
Dim strStartfolder As String

strStartfolder = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfolder = fso.GetFolder(strStartfolder)
Set colfiles = objfolder.Files

In der letzten Zeile erhalte ich die Meldung
Typen unverträglich

Sage ich einfach nur
Dim colfiles
Ist alles ok
Als was muss colfiles deklariert werden?

Gruß
Jürgen

[Ulrich Möller]

Post by Jürgen Meyer
Dim fso As Object
Dim objfolder As Object
Dim objfile As Object
Dim colfiles As Collection
Dim strStartfolder As String
strStartfolder = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfolder = fso.GetFolder(strStartfolder)
Set colfiles = objfolder.Files
In der letzten Zeile erhalte ich die Meldung
Typen unverträglich
Sage ich einfach nur
Dim colfiles
Ist alles ok
Als was muss colfiles deklariert werden?

Wenn du Late Bindung verwendest, solltest die die Files Auflistung als
Object oder Variant definieren.

Ulrich