i have a windows xp directory and in which hundereds of excel fil
resides. Some of those files are empty. is there a code any one of yo
all have that can search through the entire directory and find al
those files and highlight them or move them to another folder. I woul
truly appreciate some help here.
Thanks.
Stasi

--
jackm
-----------------------------------------------------------------------
jackm1's Profile: http://www.excelforum.com/member.php...fo&userid=2539
View this thread: http://www.excelforum.com/showthread.php?threadid=38872

Sub Locate_XLS_Files()

Dim path1 As String
Dim bStart, bFinish, FS

Set FS = CreateObject("Scripting.FileSystemObject")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

bStart = Timer

path1 = "C:\myfolder\"

With Application.FileSearch
.NewSearch
.LookIn = path1
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute

b = .FoundFiles.Count

For f = 1 To b

Application.StatusBar = "I have found this file - "
.FoundFiles(f)

Next

End With

bFinish = Timer
Application.StatusBar = "Loop completed in - " & Round((bFinish
bStart) / 60, 2) & " minutes"

End Su

--
FastOneBa
-----------------------------------------------------------------------
FastOneBaz's Profile: http://www.excelforum.com/member.php...nfo&userid=973
View this thread: http://www.excelforum.com/showthread.php?threadid=38872

Thanks. But where do I cut and paste your code. I am so sorry if I a
being to green but its a task for me. Thanks again

--
jackm
-----------------------------------------------------------------------
jackm1's Profile: http://www.excelforum.com/member.php...fo&userid=2539
View this thread: http://www.excelforum.com/showthread.php?threadid=38872

The code supplied by FastOneBaz is a stand alone macro that goes into a
standard module;
or into a button click macro.

You call it with a button or with Run Macro.

Let us know if you need more help with this...

--
steveB

Remove "AYN" from email to respond
"jackm1" wrote in
message ...

Thanks. But where do I cut and paste your code. I am so sorry if I am
being to green but its a task for me. Thanks again.


--
jackm1
------------------------------------------------------------------------
jackm1's Profile:
http://www.excelforum.com/member.php...o&userid=25399
View this thread: http://www.excelforum.com/showthread...hreadid=388721

steve, thanks for your reply. I am utterly confused here. The code sen
may work very well but do I need to put this in a folder where all m
1000 excel files resides.

here is a more detailed version of the problem

all files have

first column, row=date
third row and all the columns with data.

emty file defined

first coulmn=date.
all othe columns empty.

Now I need to find all these empty files with dates in the first colum
but nothing else in the enitre spreadsheet.

Can I save this macro and then copy it to the folder where all thes
files are.
and then run the excel from there, would it find it. how does exce
would look outside the spreadsheet into the folder.......

Thanks for your help

--
jackm
-----------------------------------------------------------------------
jackm1's Profile: http://www.excelforum.com/member.php...fo&userid=2539
View this thread: http://www.excelforum.com/showthread.php?threadid=38872