Dosya, klasör browser

[goklerhakimi]

Merhabalar,
makro içinde, klasörün yolunu soracak bir araç arıyordum. mesela aşağıdaki gibi bir kod yazıldığında klasörün yeri sabit oluyor ama ben değişken yaratmak istiyorum, mümkün müdür?
kod:
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder ("C:\tmp\Makro").Files
Cells(t, 1) = dosya
t = t + 1
Next

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub KlasörAç()
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
MyPath = ObjFolder.Items.Item.Path
MsgBox MyPath
End Sub

 

[goklerhakimi]

teşekkürler sayın ripek, tam aradığımdı.