Arkadaşlar kolay gelsin siteye baktım ama bulumadım
sizden yadım istiyorum
bilgisayarımda bulunan klasörleri gösterip seçtiğim klasörün yolunu gösterecek uygulama varmı arkadaşlar daha önceden görmüş gibi hatırlıyorum

(10/10/2023, 19:17)mahmut yanar yazdı: Arkadaşlar kolay gelsin siteye baktım ama bulumadım
sizden yadım istiyorum
bilgisayarımda bulunan klasörleri gösterip seçtiğim klasörün yolunu gösterecek uygulama varmı arkadaşlar daha önceden görmüş gibi hatırlıyorum

Arkadaşlar buldum diğer arkadaşlara lazım olur diye buraya ekliyorum

Private Sub Klasör_Gözat_Click()
Dim objShell
        Dim ssfWINDOWS
        Dim objFolder
       
        ssfWINDOWS = 50
        Set objShell = CreateObject("shell.application")
            Set objFolder = objShell.BrowseForFolder(0, "Dosyalarının Oluşturulacağı Klasörü Seçin...", 1, "")
                If (Not objFolder Is Nothing) Then
                  Dosya_Kayıt_Yeri = objFolder.Self.Path
                End If
            Set objFolder = Nothing
        Set objShell = Nothing
    If IsNull(Dosya_Kayıt_Yeri) Then
    Dosya_Kayıt_Yeri = CurrentProject.Path & "\"
End If
End Sub


konuyu kapatabilirsiniz teşekkürler