Çok 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 Test()
Dim d As String, i As Integer
d = Dir("c:\gicimi\", vbDirectory)
While d <> ""
If d <> "." And d <> ".." Then
i = i + 1
Cells(i, "a") = d
End If
d = Dir
Wend
End Sub