windows un kendi file browse rını açtırmak

[canerkan]

metin dosyasından bilgi almak üzere dosya gözat penceresini çağırmam gerek ama bir türlü yapamadım.yardımlarınızı bekliyorum

 

[Haluk]

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
        (pOpenfilename As MyFile) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, _
         ByVal nShowCmd As Long) As Long
'
Type MyFile
    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
'
Sub OpenFile()
    Dim FileToOpen As MyFile
    FileToOpen.lStructSize = Len(FileToOpen)
    FileToOpen.hwndOwner = 0
    FileToOpen.hInstance = 0
    FileToOpen.lpstrFilter = "Text Dosyalari (*.txt)" + Chr$(0) + "*.txt" + _
    Chr$(0) + "Bütün Dosyalar (*.*)" + Chr$(0) + "*.*" + Chr$(0)
    FileToOpen.lpstrFile = Space$(254)
    FileToOpen.nMaxFile = 255
    FileToOpen.lpstrFileTitle = Space$(254)
    FileToOpen.nMaxFileTitle = 255
    FileToOpen.lpstrInitialDir = "C:\"
    FileToOpen.lpstrTitle = "Açılacak dosyayı seçiniz ....."
    FileToOpen.flags = 0
    If GetOpenFileName(FileToOpen) Then
        MsgBox "Açılacak dosya: " + Trim$(FileToOpen.lpstrFile)
        ShellExecute 0, "Open", Trim$(FileToOpen.lpstrFile), vbNullString, "C:\", 1
    Else
        MsgBox "Dosya seçilmedi !"
    End If
End Sub

 

[Haluk]

Sub Test()
    Dim ObjFolder As Object
    Dim MyPath As String, MyFile As String
    Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Klasör seçin...", &H4000, "C:\Program Files")
    If Not TypeName(ObjFolder) = "Nothing" Then
        MyPath = ObjFolder.Items.Item.Path
        MyFile = ObjFolder.Items.Item.Name
    End If
    Set ObjFolder = Nothing
    MsgBox "Dosya / Klasör yolu: " & MyPath & vbCrLf & vbCrLf & _
    "Dosya / Klasör adı : " & MyFile
End Sub

 

[canerkan]

ilginize çok teşekkür ederim..

 

[hamitcan]

Bir Module içine yerleştirmeniz yeterli.

 

[canerkan]

teşekkürler açılıyor fakat access hata verip kapanıyor.birde ilk açıldığında hangi butona tıklasak.
"tıklandığında deyimi hataya neden oldu:microsoft accsess ile OLE sunucusu veya activex denetimi arasındaki iletişim sırasında bir sorun ortaya çıktı. hata iletisini alıyorum.yardımlarınızı bekliyorum ..teşekkürler.