Klasör yolu

[bmutlu966]

Bir excel dosyasın yolunu aşağıdaki kod ile A1 hücresine yazdırabiliyorum. Ancak ben dosyanın yolunu değil sadece klasörün yolunu yazdırmak istiyorum. Kodu nasıl değiştirmeliyim?

Private Sub CommandButton1_Click()
Dim Gözat As String
Gözat = Application.GetOpenFilename("Excel Dosyası (*.xls),*.xls", , "Excel Dosyası Aç")
If Not Gözat = "False" Then
[A1]= Gözat

End If
End Sub

 

[bmutlu966]

Arkadaşlar aşağıdaki kodlarla hallettim.

Sub Dosyalarin_bulundugu_klasoru_sec()
Dim kaynak As String
[A1].Clear
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Hiz Dosyalarinin bulundugu Klasoru Secin", 50, &H0)
If Not Klasor Is Nothing Then
kaynak = Klasor.SELF.Path
[A1] = kaynak

End If
End Sub