Solved: XCOPY Command Using VBA?

[Wolfgang]

Gentlemen,

Can the following DOS command be executed using VBA?

XCOPY E:\MY-TOOLS\*.* C:\MY-XLS-BACKUP /E /D:01-31-2007

Thank you...

Best,
Wolfgang

[CCkfm2000]

try using the command shell

e.g
Sub test()
Shell "xcopy m:\0\*.* m:\1\*.*"
End Sub



hope this helps

[Bob Phillips]

This worked for me



retval = Shell("XCOPY C:\TestFolders\*.* C:\TestBackup /E", 0)

[Wolfgang]

Gentlemen...

Thank you both for your replies...but as far as I can see (tell), nothing was copied...

Bob, I adjusted your folder names according to mine without any results...

I'm running US-Office 2003 Pro SP2 on Windows XP Home...

Best,
Wolfgang

[Bob Phillips]

Don't know what to say Wolfgang. I tried it and it worked here.

[Wolfgang]

Bob, I'm using this line of code and it does not do anything at all:

retval = Shell("XCOPY E:\MY-TOOLS\*.* C:\MY-XLS-BACKUPS /E", 0)

Best,
Wolfgang

[Bob Phillips]

One thing I forgot to mention, it didn't work if TestBackup didn't exist. I tried again and it worked.

You can create the directory like so



On Error Resume Next
MkDir 'C:\TestBackup"
On Error Goto 0

[CCkfm2000]

this works for me

Sub test()
Shell "XCOPY m:\MY-TOOLS\*.* m:\MY-XLS-BACKUPS\*.* /E"
End Sub

[Wolfgang]

Gentlemen,

Both solutions work now...

Can you also incorporate the DOS parameter below as well, please!
/D:01-31-2007

Best,
Wolfgang

[Bob Phillips]

I don't know what that one does, but wouldn't you just string it on the end?

[Wolfgang]

Bob...

I just did that:
XCOPY E:\MY-TOOLS\*.* C:\MY-XLS-BACKUP /E /D:01-31-2007

It only copies files having the date specified and above...

It works now...

Have a nice day, both of you...

Best,
Wolfgang

[mdmackillop]

You could add the date into the code, say for the last 7 days
Sub test()
Dim str As String
str = "XCOPY m:\MY-TOOLS\*.* m:\MY-XLS-BACKUPS\*.* /E /D:" & Format(Date - 7, "mm-dd-yyyy")
Shell str
End Sub

[Wolfgang]

Good Morning Malcolm,

Thank you very much for your solution, too...

Now I got three tools to choose from...one for every day in the week...

Have a nice weekend,
Wolfgang