Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

Muk

You can use the following, it only searchs for one condition at a time so
you need to devise some logic to keep multiple condition results.
See the line with <<<< in it to change the condition.

Sub fso()
Const msoFileTypeExcelWorkbooks = 4

Dim fs As Object 'FileSearch
Dim ff
Dim lRow As Long

Set fs = Application.FileSearch
fs.LookIn = "C:\Documents and Settings\admin\My Documents"
fs.SearchSubFolders = True
fs.TextOrProperty = "Files" '<<< text to find wilds ok
fs.FileType = msoFileTypeExcelWorkbooks
fs.Execute

For Each ff In fs.FoundFiles
lRow = lRow + 1
ActiveSheet.Cells(lRow, 1) = ff
Next

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

Martin I do not know why this is not working.

Can you guess why?

"Martin Fishlock" wrote:

Muk

You can use the following, it only searchs for one condition at a time so
you need to devise some logic to keep multiple condition results.
See the line with <<<< in it to change the condition.

Sub fso()
Const msoFileTypeExcelWorkbooks = 4

Dim fs As Object 'FileSearch
Dim ff
Dim lRow As Long

Set fs = Application.FileSearch
fs.LookIn = "C:\Documents and Settings\admin\My Documents"
fs.SearchSubFolders = True
fs.TextOrProperty = "Files" '<<< text to find wilds ok
fs.FileType = msoFileTypeExcelWorkbooks
fs.Execute

For Each ff In fs.FoundFiles
lRow = lRow + 1
ActiveSheet.Cells(lRow, 1) = ff
Next

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

from dave peterson


dim teststr as string
teststr = ""
on error resume next
teststr = dir("yourpath\yourfilenamehere")
on error goto 0

if teststr = "" then
'not found
else
'found
end if


--


Gary


"Muk" wrote in message
...
Hi
I want to check for some particular files (Containing some particular
words
like time sheets or April/May 2006€¦.) are already there in a folder or
not.
Can I check I mean search whether the particular file is there in folder
or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

Gary; I am sorry as I believe that I haven't explained my problem correctly.
Your Code is working but really what I want is to find is files which
contain some particular contents of word in the Name.
Like "Timesheets" or "2006" or "January"
and to make a list of the same

Regards,
Muk

"Gary Keramidas" wrote:

from dave peterson


dim teststr as string
teststr = ""
on error resume next
teststr = dir("yourpath\yourfilenamehere")
on error goto 0

if teststr = "" then
'not found
else
'found
end if


--


Gary


"Muk" wrote in message
...
Hi
I want to check for some particular files (Containing some particular
words
like time sheets or April/May 2006€¦.) are already there in a folder or
not.
Can I check I mean search whether the particular file is there in folder
or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

this will display a message box for all files with 2006 in the name of the
default folder.

add the path you want to check and change 2006 to something you want to
search for
fName = Dir("C:\MyFolder\*2006*.xls")


Option Explicit
Dim fname As String
Sub test()
fname = Dir("*2001*.xls") 'Do While fname < ""
MsgBox fname
fname = Dir()
Loop
End Sub


--


Gary


"Muk" wrote in message
...
Gary; I am sorry as I believe that I haven't explained my problem
correctly.
Your Code is working but really what I want is to find is files which
contain some particular contents of word in the Name.
Like "Timesheets" or "2006" or "January"
and to make a list of the same

Regards,
Muk

"Gary Keramidas" wrote:

from dave peterson


dim teststr as string
teststr = ""
on error resume next
teststr = dir("yourpath\yourfilenamehere")
on error goto 0

if teststr = "" then
'not found
else
'found
end if


--


Gary


"Muk" wrote in message
...
Hi
I want to check for some particular files (Containing some particular
words
like time sheets or April/May 2006€¦.) are already there in a folder or
not.
Can I check I mean search whether the particular file is there in
folder
or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

It is strange as it works on mine.

Maybe you need a reference set.

What is the error saying?
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Martin I do not know why this is not working.

Can you guess why?

"Martin Fishlock" wrote:

Muk

You can use the following, it only searchs for one condition at a time so
you need to devise some logic to keep multiple condition results.
See the line with <<<< in it to change the condition.

Sub fso()
Const msoFileTypeExcelWorkbooks = 4

Dim fs As Object 'FileSearch
Dim ff
Dim lRow As Long

Set fs = Application.FileSearch
fs.LookIn = "C:\Documents and Settings\admin\My Documents"
fs.SearchSubFolders = True
fs.TextOrProperty = "Files" '<<< text to find wilds ok
fs.FileType = msoFileTypeExcelWorkbooks
fs.Execute

For Each ff In fs.FoundFiles
lRow = lRow + 1
ActiveSheet.Cells(lRow, 1) = ff
Next

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

Code runs with no files found
I mean ff (Foundfiles) = Empty
NO Error Message

"Martin Fishlock" wrote:

It is strange as it works on mine.

Maybe you need a reference set.

What is the error saying?
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Martin I do not know why this is not working.

Can you guess why?

"Martin Fishlock" wrote:

Muk

You can use the following, it only searchs for one condition at a time so
you need to devise some logic to keep multiple condition results.
See the line with <<<< in it to change the condition.

Sub fso()
Const msoFileTypeExcelWorkbooks = 4

Dim fs As Object 'FileSearch
Dim ff
Dim lRow As Long

Set fs = Application.FileSearch
fs.LookIn = "C:\Documents and Settings\admin\My Documents"
fs.SearchSubFolders = True
fs.TextOrProperty = "Files" '<<< text to find wilds ok
fs.FileType = msoFileTypeExcelWorkbooks
fs.Execute

For Each ff In fs.FoundFiles
lRow = lRow + 1
ActiveSheet.Cells(lRow, 1) = ff
Next

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

Thanks Gary

This worked and solved my problem

Thank indeed
Regards,
Muk

"Gary Keramidas" wrote:

this will display a message box for all files with 2006 in the name of the
default folder.

add the path you want to check and change 2006 to something you want to
search for
fName = Dir("C:\MyFolder\*2006*.xls")


Option Explicit
Dim fname As String
Sub test()
fname = Dir("*2001*.xls") 'Do While fname < ""
MsgBox fname
fname = Dir()
Loop
End Sub


--


Gary


"Muk" wrote in message
...
Gary; I am sorry as I believe that I haven't explained my problem
correctly.
Your Code is working but really what I want is to find is files which
contain some particular contents of word in the Name.
Like "Timesheets" or "2006" or "January"
and to make a list of the same

Regards,
Muk

"Gary Keramidas" wrote:

from dave peterson


dim teststr as string
teststr = ""
on error resume next
teststr = dir("yourpath\yourfilenamehere")
on error goto 0

if teststr = "" then
'not found
else
'found
end if


--


Gary


"Muk" wrote in message
...
Hi
I want to check for some particular files (Containing some particular
words
like time sheets or April/May 2006€¦.) are already there in a folder or
not.
Can I check I mean search whether the particular file is there in
folder
or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk

This one actually looke in the files for the text not the file names.

No problem Gary provided you with a solution.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Code runs with no files found
I mean ff (Foundfiles) = Empty
NO Error Message

"Martin Fishlock" wrote:

It is strange as it works on mine.

Maybe you need a reference set.

What is the error saying?
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Martin I do not know why this is not working.

Can you guess why?

"Martin Fishlock" wrote:

Muk

You can use the following, it only searchs for one condition at a time so
you need to devise some logic to keep multiple condition results.
See the line with <<<< in it to change the condition.

Sub fso()
Const msoFileTypeExcelWorkbooks = 4

Dim fs As Object 'FileSearch
Dim ff
Dim lRow As Long

Set fs = Application.FileSearch
fs.LookIn = "C:\Documents and Settings\admin\My Documents"
fs.SearchSubFolders = True
fs.TextOrProperty = "Files" '<<< text to find wilds ok
fs.FileType = msoFileTypeExcelWorkbooks
fs.Execute

For Each ff In fs.FoundFiles
lRow = lRow + 1
ActiveSheet.Cells(lRow, 1) = ff
Next

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Muk" wrote:

Hi
I want to check for some particular files (Containing some particular words
like time sheets or April/May 2006€¦.) are already there in a folder or not.
Can I check I mean search whether the particular file is there in folder or
not?

Is this possible with a macro code?

Any help on this is much appreciated
Regards,
Muk