OpenFile Dialog without a *.ocx

Code:

---

      Option Explicit

      Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

      Private Type OPENFILENAME
        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

---

Put this into your function:

Code:

---

        Dim OpenFile As OPENFILENAME
        Dim lReturn As Long
        Dim sFilter As String
        Dim path    As String
       
        OpenFile.lStructSize = Len(OpenFile)
        OpenFile.hwndOwner = Form1.hWnd
        OpenFile.hInstance = App.hInstance
        sFilter = "Batch Files (*.exe)" & Chr(0) & "*.exe" & Chr(0)
        OpenFile.lpstrFilter = sFilter
        OpenFile.nFilterIndex = 1
        OpenFile.lpstrFile = String(257, 0)
        OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
        OpenFile.lpstrFileTitle = OpenFile.lpstrFile
        OpenFile.nMaxFileTitle = OpenFile.nMaxFile
        OpenFile.lpstrInitialDir = "C:\"
        OpenFile.lpstrTitle = "Use the Comdlg API not the OCX"
        OpenFile.Flags = 0

---

and you can get the path with : OpenFile.lpstrFile

from:

Code:

---

http://support.microsoft.com/kb/161286

---

Greetz Zer0Flag