Get the Path of a file to be imported 2

[cyork]

I have a function that populates a table from an excel spreadsheet. I want to be able to prompt the user to indicate the location of the file (open a browse directory window) to be imported.

Thanks,

Chris

 

[THoey]

You need to look up Windows API calls. I have done it before, but it is a bit lengthy to describe. Terry M. Hoey
th3856@txmail.sbc.com
While I don't mind e-mail messages, please post all questions in these forums for the benefit of all members.

 

[THoey]

What I meant to say was... You can use a Windows Common Dialog Box call to get Windows Standard Directory window, and when they click ok (or open, can't remember which) it will return the path and file name. The following code is from Access 97 Developer's Handbook by Litwin, Getz and Gilbert (SYBEX) and makes the function call. Hopefully you can get enough information out of it to use, otherwise, I suggest buying the book.

Sub TestGetFileName()
    ' From Access 97 Developer's Handbook
    ' by Litwin, Getz, and Gilbert (Sybex)
    ' Copyright 1997.  All rights reserved.
    
    Dim gfni As adh_accOfficeGetFileNameInfo
    With gfni
        .hwndOwner = Application.hWndAccessApp
        .strAppName = "Delete Extra HTML"
        .strDlgTitle = "Select an HTML File"
        .strOpenTitle = "Select"
        .strFile = ""
        .strInitialDir = "C:\Windows\Temporary Internet Files\Cache1"
        .strFilter = "HTML (*.html;*.htm)|HTM Files (*.htm)|HTX Files (*.htx)|All Files (*.*)"
        .lngFilterIndex = 1
        .lngView = adhcGfniViewList
        .lngFlags = adhcGfniNoChangeDir Or adhcGfniInitializeView
    End With
    If adhOfficeGetFileName(gfni, True) = adhcAccErrSuccess Then
        MsgBox "You chose: " & Trim(gfni.strFile), vbOKOnly, "Test Get File Name"
    End If
End Sub

Terry M. Hoey
th3856@txmail.sbc.com
While I don't mind e-mail messages, please post all questions in these forums for the benefit of all members.

 

[cyork]

That's perfect - thank you kindly.

Chris