FileSearch VBA 2010

[Larry Landis <lawrence_landis -at- yahoo -dot- com>]

Appaarently Application.FileSearch is no longer supported in Word 2010.

(I'm "transitioning from Word 2000/2003; it's OK, I've already heard all the "comments" about "dinosaurs.")

When the following code is run, I get an Error 5111 "command is not available on this platform" message, with the 1st line below highlighted:

With Application.FileSearch
    .LookIn = strFilePath
    .FileName = "*.*"
    .Execute (msoSortByFileName)
    intFilesFoundCount = .FoundFiles.Count
    If intFilesFoundCount = 0 Then
        X = MsgBox("No files found in selected directory.", vbInformation, "No Files Found")
        End
    Else
        Application.Documents.Add
        ActiveDocument.PageSetup.Orientation = wdOrientLandscape
    End If
End With

What has replaced FileSearch?

Thanks very much!

Larry

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Create and publish documentation through multiple channels with Doc-To-Help.
Choose your authoring formats and get any output you may need. Try
Doc-To-Help, now with MS SharePoint integration, free for 30-days.
http://www.doctohelp.com

---
You are currently subscribed to TECHWR-L as archive -at- web -dot- techwr-l -dot- com -dot- 

To unsubscribe send a blank email to
techwr-l-leave -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40web.techwr-l.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwhirl.com/email-discussion-groups/ for more resources and info.

Looking for articles on Technical Communications?  Head over to our online magazine at http://techwhirl.com