I get compile error when create new instance of file system object

Question

When I try to run this code, I get an error like this

Compile error
Can't find a project or library.

Public FSO As New FileSystemObject

Sub DiskSpace()
    Dim drv As Drive
    Dim Space As Double
    Set drv = FSO.GetDrive("C:") ' Creating the the Drive object

    Space = drv.FreeSpace
    Space = Space / 1073741824 'converting bytes to GB
    Space = WorksheetFunction.Round(Space, 2) ' Rounding

    MsgBox "C: has free space = " & Space & " GB"
End Sub

@ExcelDevelopers Failure to set a reference would give a different error. Try it. — Ron Rosenfeld
– Ron Rosenfeld, Commented Dec 4, 2018 at 11:07
Thank you very much everyone for quick replies. I was able to solve the problem. I had to change 2 lines as follows. But can't understand why. Public FSO As New scripting.FileSystemObject Dim drv As scripting.Drive — coderH
– coderH, Commented Dec 4, 2018 at 11:17
@RonRosenfeld. I believe Excel Developers is correct. I created a new workbook and imported coderH's code. It failed as reported. I then set a reference to Microsoft Scripting Runtime and the code displayed a message box giving the free space on drive C: — Tony Dallimore
– Tony Dallimore, Commented Dec 4, 2018 at 11:19
scripting. tells the compiler where to look for the definitions of FileSystemObject and Drive. This avoids the need for a reference. — Tony Dallimore
– Tony Dallimore, Commented Dec 4, 2018 at 11:22

Ron Rosenfeld · Accepted Answer · 2018-12-04 11:09:04Z

0

I assume you have set a reference to Microsoft Scripting Runtime, otherwise the error would be something like User defined type not defined.

In the VBA Editor, go to Tools/References and look for a Reference with MISSING. Uncheck that and see if it works.

answered Dec 4, 2018 at 11:09

Ron Rosenfeld

62k7 gold badges35 silver badges71 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

coderH Over a year ago

Thank you very much for the reply. I was able to solve the problem. I had to change 2 lines as follows. But can't understand why. Public FSO As New scripting.FileSystemObject Dim drv As scripting.Drive

coderH Over a year ago

Do you know why I need to add scripting at the beginning?

Ron Rosenfeld Over a year ago

@coderH If you do not have the reference set, then your code doesn't understand Drive. With the reference, you should not need it. Did you have any MISSING references in the list?

coderH Over a year ago

Yes I have one missing reference to microsoft office web components 11.0

Ron Rosenfeld Over a year ago

Is it unchecked?

|

Excel Developers · Accepted Answer · 2018-12-04 11:06:14Z

0

You need to set a reference to Microsoft Scripting Runtime. In the VBE, click on Tools, References, then scroll down to "Microsoft Scripting Runtime" and tick the box next to it.

answered Dec 4, 2018 at 11:06

Excel Developers

2,8352 gold badges24 silver badges36 bronze badges

1 Comment

coderH Over a year ago

Thank you for the answer. I have done it already. But this was not the reason.

Collectives™ on Stack Overflow

I get compile error when create new instance of file system object

2 Answers 2

7 Comments

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

7 Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related