Billeder

Sub ListFiler()
Range("A2:A1000").ClearContents
Range("B1:B1000").ClearContents

Dim Projektmapper(1000)
sti = ThisWorkbook.Path & "\"
fil = Dir(sti)
Do While fil <> ""
  Projektmapper(tal) = fil
  Cells(tal + 2, 2) = Projektmapper(tal)
  tal = tal + 1
  fil = Dir
Loop

    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],3)"
    Selection.AutoFill Destination:=Range("A2:A1000"), Type:=xlFillDefault
    Range("A2:A1000").Select
    Range("A1").Select
Range("A1") = "Type:"
Range("B1") = "Antal filer: " & tal    'resulstat skrives
MsgBox tal, vbOKOnly, "Antal filer fundet"
End Sub