AccessTr.neT

iyi günler
eklediğim örnekte buton tıklanınca ağda bulunan klasörler dosyalar görülüyor
istediğim ağdaki seçtiğim klasörün yoluyla
"asm\dosya\son\"
şekli gibi metin kutusuna yazılsın

Browse folder ile olmazmi

Modüle

Private Type BROWSEINFO

    hOwner As Long

    pidlRoot As Long

    pszDisplayName As String

    lpszTitle As String

    ulFlags As Long

    lpfn As Long

    lParam As Long

    iImage As Long

End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Public Function KlasorBul(szDialogTitle As String) As String

On Error GoTo Err_KlasorBul

    Dim X As Long, bi As BROWSEINFO, dwIList As Long

    Dim szPath As String, wPos As Integer

    With bi

        .hOwner = hWndAccessApp

        .lpszTitle = szDialogTitle

        .ulFlags = BIF_RETURNONLYFSDIRS

    End With

    dwIList = SHBrowseForFolder(bi)

    szPath = Space$(512)

    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)

    If X Then

        wPos = InStr(szPath, Chr(0))

        KlasorBul = Left$(szPath, wPos - 1)

    Else

        KlasorBul = ""

    End If

Exit_KlasorBul:

    Exit Function

Err_KlasorBul:

    MsgBox Err.Number & " - " & Err.Description

    Resume Exit_KlasorBul

End Function

Formdaki butonun tıklandığında olayına

 Me.Metin1 = KlasorBul("Klasörü Seçiniz.")

kodu ekle

eklediğim resimdeki mousun bulunduğu yerdeki
192.168.2.5
gibi adresleride ve onların içindeki klasörleri de seçebilecek bir ayarlama yapılabilir mi

Eklediğim kodları uyguladıktan sonra butonu tıkladığınızda "Bilgisayar" içerisinde "192.168.2.6" klasörü görünmüyor mu?

hayır