VBA-kode til kopiering af filnavne til excel.

Sub Makro()
    Dim fso, row
    row = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myFolder = fso.GetFolder("Din folder")
    Set Files = myFolder.Files
    For Each file In myFolder.Files
        Cells(row, 1).Value = file.Name
        row = row + 1
    Next
End Sub

du kan smide filstørrelse og -type på:

Sub Makro()
    Dim fso, row
    row = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myFolder = fso.GetFolder("C:\websteder\vinnilerne.dk")
    Set Files = myFolder.Files
    For Each file In myFolder.Files
        Cells(row, 1).Value = file.Name
        Cells(row, 2).Value = file.Size
        Cells(row, 3).Value = file.Type
        row = row + 1
    Next
End Sub

Tak - det virker som det skal!!

no problemos :D..