Çözüldü Excele Klasör İçerisinde Bilgilerinin Aktarılması (İsim)

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