I need to copy files and folders from a server to my hard drive using a
macro. I'm not sure how to write the macro using visual basic.

Same as in DOS except using the FileCopy command

FileCopy "source", "destination"
--
HTH...

Jim Thomlinson


"macrowriter" wrote:

I need to copy files and folders from a server to my hard drive using a
macro. I'm not sure how to write the macro using visual basic.

FILECOPY C:\DOCUMENTS\QUIZ april.doc , C:\ARCHIVED\DOCUMENTS\TEST april.doc
here is what I'm trying to do.... am i missing anything?
"Jim Thomlinson" wrote:

Same as in DOS except using the FileCopy command

FileCopy "source", "destination"
--
HTH...

Jim Thomlinson


"macrowriter" wrote:

I need to copy files and folders from a server to my hard drive using a
macro. I'm not sure how to write the macro using visual basic.

Since the files names have spaces in them throw quotes aroung them...

FILECOPY "C:\DOCUMENTS\QUIZ april.doc" , "C:\ARCHIVED\DOCUMENTS\TEST
april.doc"

--
HTH...

Jim Thomlinson


"macrowriter" wrote:

FILECOPY C:\DOCUMENTS\QUIZ april.doc , C:\ARCHIVED\DOCUMENTS\TEST april.doc
here is what I'm trying to do.... am i missing anything?
"Jim Thomlinson" wrote:

Same as in DOS except using the FileCopy command

FileCopy "source", "destination"
--
HTH...

Jim Thomlinson


"macrowriter" wrote:

I need to copy files and folders from a server to my hard drive using a
macro. I'm not sure how to write the macro using visual basic.

You are missing "", ie
filecopy "what","to"
for example.
filecopy "c:\test.xls","c:\test2.xls"
or use same method as VBA example and use variables, which makes it
easier to change if used repeatedly.

This was very helpful... here is what I have sofar... however I can only seem
to move one file at a time. how can I change this to move all files in the
folder?

Sub FileCopyExample()
Dim sSourcePath As String
Dim sTargetPath As String

' Change these paths to your Source and Target paths.
sSourcePath = "C:\PNTTEMPL\CustomDoc\CHARM.PCD"
sTargetPath = "C:\PNTTEMPL\CustomDoc\TEST\CHARM.PCD"
On Error Resume Next

' Copy the file "My Document" file from "Macintosh HD:Documents"
' to "Macintosh HD:Backup".
FileCopy sSourcePath, sTargetPath

If Err 0 Then MsgBox Err.Description
End Sub


"KtM" wrote:

You are missing "", ie
filecopy "what","to"
for example.
filecopy "c:\test.xls","c:\test2.xls"
or use same method as VBA example and use variables, which makes it
easier to change if used repeatedly.

Check out this page:

http://www.rondebruin.nl/folder.htm

"macrowriter" wrote:

This was very helpful... here is what I have sofar... however I can only seem
to move one file at a time. how can I change this to move all files in the
folder?

Sub FileCopyExample()
Dim sSourcePath As String
Dim sTargetPath As String

' Change these paths to your Source and Target paths.
sSourcePath = "C:\PNTTEMPL\CustomDoc\CHARM.PCD"
sTargetPath = "C:\PNTTEMPL\CustomDoc\TEST\CHARM.PCD"
On Error Resume Next

' Copy the file "My Document" file from "Macintosh HD:Documents"
' to "Macintosh HD:Backup".
FileCopy sSourcePath, sTargetPath

If Err 0 Then MsgBox Err.Description
End Sub


"KtM" wrote:

You are missing "", ie
filecopy "what","to"
for example.
filecopy "c:\test.xls","c:\test2.xls"
or use same method as VBA example and use variables, which makes it
easier to change if used repeatedly.