File System Object Syntax

Hey Guys,

I am trying to add a file search function to a program. When I try to use the code below I get a "Compile error: User-defined type not defined".

Public Function FindInvoicesPRN()

Dim fso As New FileSystemObject

If fso.FileExists("C:\RS5\POS\DATA\invoices.prn") Then
MsgBox "File Exists!"

End If

End Function

What am I leaving out?

 

Got it. Missing Microsoft Scripting Runtime Reference.

 

From one of my snippets files from years ago

Code:

Public Function File_Exists(nFile As String) As Boolean
    Dim fs

    Set fs = CreateObject("Scripting.FileSystemObject")

    File_Exists = fs.fileexists(nFile)
End Function