Private Sub Komut5_Click()
Dim fold As Object
Set fold = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Klasör seçiniz...", 0)
If fold Is Nothing Then Exit Sub
MsgBox fold.Self.Path
End Sub
arkadaşlar ben bu göz at komutlarına nasıl kydetme kodunu eklıye bilirim yardım edesenız sevınırım
Dim fold As Object
Set fold = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Klasör seçiniz...", 0)
If fold Is Nothing Then Exit Sub
MsgBox fold.Self.Path
End Sub
arkadaşlar ben bu göz at komutlarına nasıl kydetme kodunu eklıye bilirim yardım edesenız sevınırım