Application.FileSearch error

[Cor van der Bliek]

I am migrating from Office2000 on WindowsXP to Office2007 on Vista (Home
Premium).
In Word I take some data from a file, but Application.FileSearch results in
an error

Set fs = Application.FileSearch

(Deze opdracht is niet beschikbaar op dit platform - This command is not
available on this platform)

What could be wrong? Vista version?

 

[Mo]

Unfortunately the FileSearch class is removed from Office 2007.
/Peeter

 

[Cor van der Bliek]

I fixed it by replacing Application.FileSearch by:
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Persfile)) Then
Set f = fs.GetFile(Persfile)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
etc