Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sub Listele()
Dim liste As String
liste = Dir("c:", vbDirectory)
Do While liste ""
If GetAttr("c:" & liste) = vbDirectory Then
UserForm1.ListBox1.AddItem liste
End If
liste = Dir
Loop
End Sub
Uygulama Adımları
Microsoft Visual Basic for Applications...
Makro ile Klasör Açma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Uygulama Adımları
Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin...