File open Dialog box error

[Summer123]

Hello, can anyone pin point why this line is erroring?

"runtime error - 438"
Object doesnt support this property or method


'Get file selection from common dialog control
With Me.ComDialogBTN
.DialogTitle = "Select File" ' this is where its highlighting, if i comment this out then it goes to the next line.. does this have anything to do with ActiveX controls or something???
.CancelError = False
.Filter = "All files (*.*)|*.*|"
.FilterIndex = 1
.Flags = MSComDlg.FileOpenConstants.cdlOFNFileMustExist _
Or MSComDlg.FileOpenConstants.cdlOFNPathMustExist _
Or MSComDlg.FileOpenConstants.cdlOFNReadOnly
.InitDir = fnPath("files")
.FileName = ""
.ShowOpen
If .FileName = "" Then Exit Sub
End With

'Extract path and file portions of filename
'Read filename from **RIGHT** to **LEFT**
'Everything to the left of the first "\" encountered is the path
'Everything to the right of the first "\" encountered is the filename
'FileLong = Me.ComDialogBTN.fileName
For X = Len(FileLong) To 1 Step -1
If Mid(FileLong, X, 1) = "\" Then
FilePath = Left(FileLong, X - 1)
FileShort = Right(FileLong, Len(FileLong) - X)
Exit For
End If
Next X

 

[jdraw]

Here is a post that references this problem - may not be the issue but you should read it to see if it possibly fits your situation.
http://www.accessforums.net/programming/runtime-error-438-object-doesnt-support-property-2534.html

 

[Summer123]

not an expert at this suff but what this mean please? "
KB973346 (Active X kill bit) caused this issue.... Not sure how... but will use filemonitor or another sysinternal tool to find out!

Removed windows update KB973346 resolved this issue and can recreate it by re-adding the update!! "

i guess what are the steps to do this please?

 

[Summer123]

hey jdraw, thanks for the post earlier do you know how to get this done? the kill bit stuff? sorry i dont know how to do this