Searching for a matching filename in a directory 1

[fergmj]

Here is the situation:

Dim cutname
cutname = 01040301.023 ' the cutname is the exact format of a file
I want to search a directory and find a file that matches cutname
When I find that file, I want to copy the file (audio) to a new directory

Any help?

Thanks.

Mindy

 

[RickSpr]

SearchDir = "C:\My Documents\...(etc.)...\"
DestDir = "C:...(etc.)"
CutName = "01040301.023"
If Dir(SearchDir & CutName) <> &quot;&quot; Then
FileCopy SearchDir & CutName, DestDir & CutName
End If Rick Sprague