convert xls 95 to newer version

[Esmoreit]

hey

Ik heb een map met ongeveer 150000 bestanden in. vooral pdf, xls en doc. Nu zoek ik een programma dat automatisch die directory doorzoekt en alle xls bestanden er uit haalt, opent, en savet in nieuw(er) formaat. ik werk namelijk met een software die bepaalde xls bestanden moet gebruiken maar om de een of andere reden kan die geen oude xls bestanden gebruiken. Het is veel te veel werk om handmatig te gaan zoeken welke bestanden oud formaat zijn en deze manueel te saven in nieuwere versie.
Iemand een oplossing? Bepaald scriptje of proggieke ofzo?

Alvast bedankt

greetz

 

[Warme bakkertje]

Volgende macro haalt alle xls-files uit een directory naar keuze. Hier kan je al mee beginnen.

Sub tst()
  c0 = ""
  With CreateObject("scripting.filesystemobject").GetFolder(InputBox("Welke directory wenst U", "FileSearch", "D:\Mijn documenten\"))
    For Each fl In .Files
        If Right(fl.Name, 4) = ".xls" Then
            c0 = c0 & fl.Name & "|"
        End If
    Next
    [A:A].ClearContents
    [A1].Resize(UBound(Split(c0, "|"))) = WorksheetFunction.Transpose(Split(c0, "|"))
 End With
End Sub

Mvg

Rudi