Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Function gfni_getFile() Dim gfni As adh_accOfficeGetFileNameInfo With gfni .hwndOwner = Application.hWndAccessApp .strAppName = "Select Location of File for Import" .strDlgTitle = "Select Location of File For Import" .strOpenTitle = "Select" .strfile = "*.mdb" .strInitialDir = "\\server\directory\folder" .strFilter = "Access Database (*.mdb)|All Files (*.*)|Excel Spreadsheet (*.xls)" .lngFilterIndex = 1 .lngView = adhcGfniViewList .lngFlags = adhcGfniNoChangeDir Or adhcGfniInitializeView End With If adhOfficeGetFileName(gfni, True) = adhcAccErrSuccess Then gfni_getMTOE = Trim(gfni.strfile) End If End Function
Join the community of 500,000 technology professionals and ask your questions.