What's wrong with this code 4

[wmbb]

The code below is showing a compile error "user-defined type not defined" in the line Dim fso...
Can someone tell me what's wrong ?

Sub test()
Dim fso As FileSystemObject
Dim f As File
  Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f In fso.GetFolder("C:\temp").Files
      MsgBox f.Name
    Next
  Set fso = Nothing
End Sub

 

[Golom]

Do you have a reference to Microsoft Scripting Runtime?

 

[SkipVought]

use instead...

Dim fso As Object

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wmbb]

Where can I find the information for the reference to scripting runtime.
I took this piece of code from another document with a working macro.

Changing to Dim fso As Object gives the same error but now for the line Dim f As File ?!

 

[SkipVought]

Dim f As Object

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

You can discover a few things about these objects using faq707-4594

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wmbb]

Hi Skip,

That works, Thanks.
Just for my understanding....
Why does the first code work in the original word doc but not in the document I created.
Looking on the internet they all use the original code ??!!

 

[Golom]

Where can I find the information for the reference to scripting runtime.

When editing your code in VBA, select Tools / References and scroll down to find Microsoft Scripting Runtime.

[blue]Dim F As File[/blue] is having the same problem because the "File" object is also defined in Microsoft Scripting Runtime. The original Word document probably has the reference set and yours does not.

Incidently, you are mixing early and late binding. Early binding works like this

Sub test()
Dim fso As FileSystemObject
Dim f As File
  Set fso = New FileSystemObject
  [blue]etc.[/blue]

While late binding is

Sub test()
Dim fso As Object
Dim f As Variant
  Set fso = CreateObject("Scripting.FileSystemObject")
  [blue]etc.[/blue]

Either will work although late binding can take a bit longer. You should not notice a difference in a simple case like this.

 

[wmbb]

Thanks for this good explanation.
I've learned something again...

 

[dhookom]

Golom,
Great explanation of early and late binding. Deserves a star!

Duane
Hook'D on Access
MS Access MVP

 

[Andrzejek]

I would just add to Golom's post - just to be clear:

[ul]
[li]Early binding DOES require reference to Microsoft Scripting Runtime[/li]
[li]Late binding DOES NOT require reference to Microsoft Scripting Runtime[/li]
[/ul]

Have fun.

---- Andy

 

[strongm]

And to be even clearer, and assuming a reference to the library exists:

Dim fso as filesystemobject
Set fso = createobject("scripting.filesystemobject")

is not late binding