"Does not support" Application.FileSearch

[metamind]

I copied a block of code over from an excel macro into a visio macro and I get a "Run-time error '438': Object doesn't support this property or method". The block of code is below:

        With Application.FileSearch
            .NewSearch
            .LookIn = dir
            .SearchSubFolders = False
            .filename = "*.xml"
            If .Execute > 0 Then
                For i = 1 To .FoundFiles.count
                    Call fileCollection.Add(.FoundFiles(i))
                Next i
                Set getFileList = fileOperator.selectHighestFileVersions(fileCollection)
            Else
                'MsgBox "There were no files found."
            End If
        End With

it failed on the Application.FileSearch

Any ideas?

Thanks in advance.

 

[johnwm]

The Visio Application object doesn't have a FileSearch method. Although each Automation application has many properties and methods in common, there are many more that are application-specific. You can always use the Dir command and parse your structure recursively

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

For tsunami relief donations

'If we're supposed to work in Hex, why have we only got A fingers?'

http://www.essexsteam.co.uk

for steam enthusiasts

 

[metamind]

Thanks johnwm. I suspected as much (even though FileSearch is in visio's VB help). I ended up using:

        Dim fs, f, f1, fc, s
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder(dir)
        Set fc = f.files
        For Each f1 In fc
            Call fileCollection.Add(f1.name)
        Next

in the end.