I want to create a button, that when clicked on, it opens a dialog box so that I can select the FDD I need, then open it.

I have tried this code, but after opening the file, it doesn't display it as open in the "Window Menu"


File = GetOpenFilename ("*.FDD",1,"Open","")
Forms.Open(File)


The form does appear to be open, because if I try to open it through normal means I get then following:

"You cannot open [File] for exclusive use because the
file is currently in use.  Instruct all users to close
the file, and then try again.

Code: [257:1811:560]"

Were you able to figure out this problem? I just entered a new thread because I'm trying to use a command line interface. i.e. "fdd -0 myfile"
I'm getting a similar error message saying that the file is open by another user or I don't have sufficient rights.

No, I still haven't figured it out.  I've moved on to other things right now and haven't given it much thought lately.  I would still appreciate an answer if anyone can help.

Try using this. Just change the path to where your .FDD files are stored.

Private Sub BTN_LOCALDOC_Click ()
Dim Doc As String

    On Error Goto Bad

    Doc = "file://c:/Documents and Settings"
    
    If (0 = Len(Doc)) Then
        Exit Sub
    End If
        
    Application.Hyperlink(Doc)
    Exit Sub

Bad:    
    MsgBox("Hyperlink Failed: " & Error(), 16)    
    
End Sub

Thanks, for the help.  Just what I needed!