Folderlist i Excel, nu driller Office 2007

Martin_Moth har skrevet denne lille kode til mig, som trækker oversigt over filer ud til mig. MEN jeg vil gerne, at jeg kan vælge f.eks. c:\billeder...og så kommer alle undermapper også med + at filnavnet er hele stien (incl. c:\biller\...)

Jeg opretter spørgsmålet, fordi Office 2007 har lukket for Applikation.Filesearch, og dermed virker mine gamle makroer ikke. Dog virker denne løsning dog ift. de brugte applikationer, så jeg tænkte at der kunne blive skrevet videre på denne. Alternativt vil jeg selvfølgelig foretrække min oprindelige makro, som kan ses her: http://www.eksperten.dk/spm/565318

Sub Mylist()
Dim FSO As Object
Dim Dir As Object
Dim Fil As Object
Dim i As Long
Dim sti As String
MsgBox "Dette er meget meget simpelt, med en beskeden indsats kunne programmet blive helt pænt med kanpper og andet gejl ;o)"
sti = InputBox("Indtast sti til folder (f.eks. 'C:\temp'", "Indtast sti", "C:\temp")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = FSO.GetFolder(sti)
Set Fil = Dir.Files
i = 1
Cells(i, 1).Formula = "Filnavn"
Cells(i, 2).Formula = "Filstørrelse (byte)"
Cells(i, 3).Formula = "Fil oprettet dato"
For Each Fil In Dir.Files
  i = i + 1
  Cells(i, 1).Formula = Fil.Name
  Cells(i, 2).Formula = Fil.Size
  Cells(i, 3).Formula = Fil.DateCreated
Next Fil
End Sub