Copy files from one directory to another

The Tamer

Well-known Member

Joined

Jun 10, 2004

Messages

520

• Jun 23, 2004

• #2

I'm probably missing something in your question here, but just use Windows Explorer, highlight the selected files with CTRL + C, navigate to the desired folder and paste.

Or use the 'find' command in the start menu if you want to copy excel files from more than one folder (Find, then advanced, then Microsoft Excel Files), copy the ones you want, then navigate to the required file using explorer, and paste.

 

Upvote 0

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Jun 23, 2004

• #3

From help

Name oldpathname As newpathname

eg

OldName = "C:\MYDIR\OLDFILE"
NewName = "C:\YOURDIR\NEWFILE"

Name OldName As NewName

 

Upvote 0

J

jroo

Board Regular

Joined

May 22, 2003

Messages

157

• Jun 23, 2004

• #4

I want to avoid "phsyically" copying files from a directory and pasting them to aonother. Let's say I have 30 directories to copy files from - on a routine basis (i.e. monthly). I want be able to run a macro, rather than going through windows explorere and opening and closing folders.

Please let me know if I'm making sense.

 

Upvote 0

S

seanmb15

New Member

Joined

Jun 9, 2004

Messages

11

• Jun 23, 2004

• #5

Try this:

dim fs
dim strPath as String, strDestination as String

set fs = CreateObject("Scripting.FileSystemObject") 'Allows access to file system

strPath = activeworkbook.path
strDestination = "Path where you want your workbook to go"

fs.CopyFile strPath & "\*.*", strDest, True

Play around with that

 

Upvote 0

J

jroo

Board Regular

Joined

May 22, 2003

Messages

157

• Jun 24, 2004

• #6

THANKS!!!! this worked brilliantly.

this will save me SOOO much time. I have one more question. If I rerun the code again using

fs.CopyFile strPath & "\*.*", strDest, True

will files automatically be overwritten, if they already exist? I ran the code, expecting a warning to come up..but it didn't. Does the "True" mean overwrite?

 

Upvote 0

S

seanmb15

New Member

Joined

Jun 9, 2004

Messages

11

• Jun 25, 2004

• #7

You're welcome Yes, the true means overwrite

 

Upvote 0