Copy folder and paste to another folder

#1 07-17-2005, 04:05 AM

Hi there,
Can anyone kindly tell me what is the script for the macro,
for copying a folder, then pasting and overwrite to another folder.

Pls help

#2 07-17-2005, 05:05 AM

Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\", True

--
HTH

Bob Phillips

"ddiicc" <ddiicc@discussions.microsoft.com> wrote in message
news:D6753682-5B56-4905-B63C-AE513CFB3C63@microsoft.com...
> Hi there,
> Can anyone kindly tell me what is the script for the macro,
> for copying a folder, then pasting and overwrite to another folder.
>
> Pls help

#3 07-17-2005, 05:05 AM

Thanks alot Bob..

"Bob Phillips" wrote:

> Dim oFSO As Object
> Set oFSO = CreateObject("Scripting.FileSystemObject")
> oFSO.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\", True
>
>
> --
> HTH
>
> Bob Phillips
>
> "ddiicc" <ddiicc@discussions.microsoft.com> wrote in message
> news:D6753682-5B56-4905-B63C-AE513CFB3C63@microsoft.com...
> > Hi there,
> > Can anyone kindly tell me what is the script for the macro,
> > for copying a folder, then pasting and overwrite to another folder.
> >
> > Pls help
>
>
>

karrde97 · #4 07-21-2005, 08:48 AM

I am trying to do the same thing except my source directory changes with each operation.

my_path2 = (source directory)
my_save2 = (target directory)

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.copyfolder(my_path2, my_save2, True)

The directory gets copied except I get a Type mismatch error and my macro stops. I've tried all kinds of stuff and I can't get around the error.

karrde97 · #5 07-21-2005, 09:47 AM

Nevermind. Looks like I had some issues with my string not being formatted correctly. Works perfect now. Bob, your code help get me back on track. Thanks!

Welcome to the Excel Forum

Forum Statistics