Search a directory for a file

[Josh_123456]

Could someone please help me with a piece of code that will search a directory

\server\my folder\

the only type of file that this folder contains is excel files.

I want my code to delete all files that begin with DONE

example

DONE_134
DONE_abc
etc....


Loop through all files in this folder (kill) all that have the word DONE in the filename


thanks

Josh

[Carim]

Hi,

Please carefully test before implementation ... !!!

Please Login or Register  to view this content.

HTH
Carim

[mtpsuresh]

lStrFileName = VBA.Dir(PrStrFolderPath & "\" & "Done*.*")
If lStrFileName <> VBA.vbNullString Then
deletefile
Do
lStrFileName = VBA.Dir()
If lStrFileName = VBA.vbNullString Then
Exit Do
Else
deletefile
End If
Loop

End If


See if the above code give you any idea.

Thanks
mtpSuresh