My bet is you don't have a folder named "c:\mydocuments\letters" or you don't
have a folder named "C:\tempfolder" or you don't have any *.doc files in that
source folder.
(c:\mydocuments could be c:\my documents (with that space character).)
But you could check each before you try it:
Option Explicit
Sub testme()
'' With a reference (tools|references) to microsoft scripting runtime
' Dim FSO As Scripting.FileSystemObject
' Dim myDrive As Scripting.Drive
' Set FSO = New Scripting.FileSystemObject
' without that reference
Dim FSO As Object
Dim myDrive As Object
Set FSO = CreateObject("scripting.filesystemobject")
Dim mySourceFolder As String
Dim myDestFolder As String
Dim testStr As String
mySourceFolder = "C:\my documents\excel"
myDestFolder = "C:\temp"
If FSO.FolderExists(mySourceFolder) = False Then
MsgBox mySourceFolder & " doesn't exist"
Exit Sub
End If
If FSO.FolderExists(myDestFolder) = False Then
MsgBox myDestFolder & " doesn't exist"
Exit Sub
End If
testStr = ""
On Error Resume Next
testStr = Dir(mySourceFolder & "\*.doc")
On Error GoTo 0
If testStr = "" Then
MsgBox "no .Doc files in: " & mySourceFolder
Exit Sub
End If
FSO.CopyFile mySourceFolder & "\*.doc", myDestFolder
End Sub
Joseph wrote:
How to write a macro which copies a file in one loacation (source location)
to other folder (destination).
I used the function FileSystemObject.CopyFile
"c:\mydocuments\letters\*.doc", "c:\tempfolder\" but it returned error.
Can any one help me.
Regards,
Joseph
--
Dave Peterson
|