Copy Directory If File Exists

gmccreedy · Oct 10th 2006

Is it possible to search a directory looking for a particular file, then if found, copy the directory and all its contents to another location?

it should be noted that not all of the files will be *.xls.

Bob Phillips · Oct 10th 2006

Re: Copy Directory If File Exists

Code

Dim sFile As String
Dim oFSO As Object


    sFile = Dir("C:\MyTest\volker1.xls")
    If sFile <> "" Then
        Set oFSO = CreateObject("Scripting.FileSystemobject")
        oFSO.CopyFolder "C:\MyTest\*", "c:\tempfolder\"
        Set oFSO = Nothing
    End If

gmccreedy · Oct 11th 2006

Re: Copy Directory If File Exists

Thanks Bob,

One problem though. It only copies the directories under the root folder, but doesn't copy any files that live in the root folder.

I tried playing around with the path a little, but nothing seemed to work.
Any suggestions?

gmccreedy · Oct 11th 2006

Re: Copy Directory If File Exists

nevermind. Change "copyfolder' to "copyfile"

Thanks Again!!!!

Copy Directory If File Exists

Participate now!

Share