CatManDave
MIS
I know there are a couple dozen questions regarding this error: Object doesn't support this property or method
However, I haven't found one that is similar enough to help.
Here's the code snippet that errors out:
Sub window_onload()
'Set our window size.
' window.resizeTo 800, 600
'Init CommonDialog control.
With dlgFileOpen
.CancelError = True
.DialogTitle = "Choose a file"
.Filter = "Text (*.txt)|*.txt|Logs (*.log)|*.log|" & _
"Html (*.htm;*.html;*.hta;*.asp)|" & _
"*.htm;*.html;*.hta;*.asp"
.FilterIndex = 1
.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
.InitDir = MyPath()
.MaxFileSize = 260
End With
'Init FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject"
End Sub
This is client side scripting and the method or property not supported is ".CancelError". Even though commenting out that statement just errors out the next property or method in the list.
Any ideas?
Thanks,
Dave
However, I haven't found one that is similar enough to help.
Here's the code snippet that errors out:
Sub window_onload()
'Set our window size.
' window.resizeTo 800, 600
'Init CommonDialog control.
With dlgFileOpen
.CancelError = True
.DialogTitle = "Choose a file"
.Filter = "Text (*.txt)|*.txt|Logs (*.log)|*.log|" & _
"Html (*.htm;*.html;*.hta;*.asp)|" & _
"*.htm;*.html;*.hta;*.asp"
.FilterIndex = 1
.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
.InitDir = MyPath()
.MaxFileSize = 260
End With
'Init FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject"
End Sub
This is client side scripting and the method or property not supported is ".CancelError". Even though commenting out that statement just errors out the next property or method in the list.
Any ideas?
Thanks,
Dave