Inputbox ile belirtilen klasörü açma

[evrimmm]

Arkadaşlar Merhaba,

Benim bir projem sonunda her ay değişen klasör isimlerine karşın; ben kullanıcıdan inputbox ile klasörün adını alıp C 'de bulunan ve inputbox ile adı girilen klasörü açmak
istiyorum.Yardımcı olabilir misiniz, Teşekkürler.

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub KlasorAcma()
    KlasorIsmi = InputBox("Klasör İsmini Girin")
    If KlasorIsmi = "" Then MsgBox "Bir Klasör İsmi Girin": GoTo 10
    If Dir("C:\" & KlasorIsmi, vbDirectory) = "" Then MsgBox "Geçerli Bir Klasör İsmi Girin": GoTo 10
    CreateObject("Shell.Application").Open "C:\" & KlasorIsmi
10
End Sub

 

[halit3]

Alternatif kod

Sub klasor_sec()
yol = "c:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.Filters.Clear
.InitialFileName = yol
.Title = "Klasöre gözat"
.Show
If .SelectedItems.Count = 0 Then GoTo 1
'MsgBox .SelectedItems(1)
CreateObject("Shell.Application").Open (.SelectedItems(1))
1
End With
End Sub