FileSearch VBA 2010

Subject: FileSearch VBA 2010
From: Larry Landis <lawrence_landis -at- yahoo -dot- com>
To: techwr-l -at- lists -dot- techwr-l -dot- com
Date: Mon, 7 Nov 2011 16:46:48 -0800 (PST)

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")
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
End If
End With

What has replaced FileSearch?

Thanks very much!



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.

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

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 for more resources and info.

Looking for articles on Technical Communications? Head over to our online magazine at


Previous by Author: RE: do any online conversion tools actually work?
Next by Author: Re: Punctuation-Shaped Lamps
Previous by Thread: RE: Looking for a document solution - part 2
Next by Thread: RE: FileSearch VBA 2010

What this post helpful? Share it with friends and colleagues:

Sponsored Ads