Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
'the open filename api Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As gFILE) As Long ' the gFILE type needed by the open filename api Type gFILE lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Public Function FileToOpen(Optional StartLookIn) As String 'Purpose: Calls the open file api to let the user select the file to open 'returns: string value which contains the path to the file selected. "" = no file seleted Dim ofn As gFILE Dim path As String Dim filename As String Dim a As String StartOver: ofn.lStructSize = Len(ofn) ofn.lpstrFilter = "Text Files (*.csv)" _ + Chr$(0) + "*.csv" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 If Not IsMissing(StartLookIn) Then ofn.lpstrInitialDir = StartLookIn Else ofn.lpstrInitialDir = "c:\some default directory" End If ofn.lpstrTitle = "Please find and select the document to open" ofn.flags = 0 a = GetOpenFileName(ofn) If (a) Then path = Trim(ofn.lpstrFile) filename = Trim(ofn.lpstrFileTitle) If Dir(path) <> "" Then FileToOpen = -1 FileToOpen = Trim(ofn.lpstrFile) Else FileToOpen = "" path = "" filename = "" End If FileToOpen = path End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.