Hente filnavne fra mappe

Nedenstående kode lister filerne i kolonne A i det aktuelle ark.

**********************
Public Sub ListAllFilesFromFolder()
    Dim objFS As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Long
   
    Set objFS = CreateObject("Scripting.Filesystemobject")
    Set objFolder = objFS.GetFolder("C:\VBA")
   
    i = 1
   
    For Each objFile In objFolder.Files
        ActiveSheet.Cells(i, 1) = objFile.Name
        i = i + 1
    Next objFile
   
    Set objFS = Nothing
    Set objFolder = Nothing
End Sub

Hvis jeg må blande mig: Kan man få tid og størrelse med?

#richter1 -> Jeps. Tilføj følgende i løkken:

ActiveSheet.Cells(i, 2) = objFile.Size
ActiveSheet.Cells(i, 3) = objFile.DateLastModified

Tak for det - :O))

Tak for svaret, det fungerer perfekt...

Lig et svar så du kan få point :D

Velbekomme :-)

Accepterer du og får lukket spørgsmålet?

Lukketid?