(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
#1
