Klasör browser

[mtl]

Aşağıdaki gibi bir örnek buldum ama "iptal" e basıldığında hata veriyor. Nasıl bir yol izleyebilirim? Yardımcı olacaklara şimdiden teşekkürler.

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

 

[Zeki Gürsoy]

Bu şekilde deneyin.

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

If ObjFolder Is Nothing Then Exit Sub

MyPath = ObjFolder.Items.Item.Path
MsgBox MyPath
End Sub

 

[mtl]

Teşekkürler.