Check File name for its existance in a folder
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
|