Excel/VBS DIM MyFSO error

[OldGuy1949]

Can someone tell me why I get this error?


It will run from excel/vbs macro but not a standalone from 'Send To' menu.

Sub Add_Reference()
Application.VBE.ActiveVBProject.References.AddFrom File "C:\Windows\System32\scrrun.dll"
'Add a reference
End Sub

Sub CheckFileExist()
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
If MyFSO.FileExists("C:\temp\text.txt") Then
MsgBox "The File Exists"
Else
MsgBox "The File Does Not Exist"
End If
End Sub

'error line 9 char 12 ; expected end of statement
'code 800A0401

[OldGuy1949]

that should be line 7 instead of 9

[p45cal]

If this is only for that little macro it's probably not worth adding the reference to the project, use late binding instead:

Sub CheckFileExist()
Dim MyFSO As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
If MyFSO.FileExists("C:\temp\text.txt") Then
  MsgBox "The File Exists"
Else
  MsgBox "The File Does Not Exist"
End If
End Sub

but perhaps easier:

Sub CheckFileExist2()
If Dir("C:\temp\text.txt") = "" Then
  MsgBox "The File Does Not Exist"
Else
  MsgBox "The File Does Exist"
End If
End Sub

[OldGuy1949]

Understood. Thank you for your help.