Set object1 = ????

[BobAchgill]

What do I need to put in the ???? to get this code to work?

Dim object1 as object
Set object1 = ????
object1.fileexists()

Thanks!

Bob

 

[Guest]

I think that you're looking at the FileSystemObject

set a reference to Microsoft Scripting Runtime ... to set a reference to a
dll, in the IDE click references under the Tools menu
Example Code:

Sub TestFileExists()
Dim strFile As String
strFile = Application.GetOpenFilename()
MsgBox FileExists(strFile)
End Sub

Function FileExists(strFilename As String) As Boolean
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject

FileExists = fso.FileExists(strFilename)

Set fso = Nothing
End Function

HTH
Patrick Molloy
Microsoft Excel MVP