File System Object late binding

[tiredofit]

This code works in early binding:

Dim fso As Scripting.FileSysemObject
Set fso = New Scripting.FileSystemObject

Dim MyFolder As Folder
Set MyFolder = fso.GetFolder("C:\MyData")

Dim Num As Integer

Num = MyFolder.Files.Count

To change to late binding, how do I declare MyFolder?

For example:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim MyFolder As Folder ' FAILS HERE

Thanks

 

[Jaafar Tribak]

This code works in early binding:

Dim fso As Scripting.FileSysemObject
Set fso = New Scripting.FileSystemObject

Dim MyFolder As Folder
Set MyFolder = fso.GetFolder("C:\MyData")

Dim Num As Integer

Num = MyFolder.Files.Count

To change to late binding, how do I declare MyFolder?

For example:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim MyFolder As Folder ' FAILS HERE

Thanks

As Object

 

[tiredofit]

Thanks