创建文件系统对象的新实例时出现编译错误

Question

当我尝试运行此代码时，出现类似这样的错误

  

编译错误
  找不到项目或库。

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

Answer 1

您需要设置对Microsoft脚本运行时的引用。在VBE中，依次单击“工具”，“引用”，然后向下滚动到“ Microsoft Scripting Runtime”，然后选中它旁边的框。

Answer 2

我假设您已经设置了对Microsoft Scripting Runtime的引用，否则错误将类似于未定义的用户定义类型。

在VBA编辑器中，转到“工具/参考”，然后查找带有MISSING的参考。取消选中它，看看是否可行。