Greg,

Try something like this

Sub Main()
Dim fsf As Object
Dim f As Object
Dim sFrom As String
Dim sTo As String

On Error GoTo errhndle


Set fsf = CreateObject("Scripting.FileSystemObject")
Set f = fsf.CreateTextFile("c:\testfile.txt", True)

sFrom = "\\mypath\file1.txt": sTo = "\\mypath1\folder1"
fsf.copyfile sFrom, sTo
sFrom = "\\mypath\file2.txt": sTo = "\\mypath2\folder2"
fsf.copyfile sFrom, sTo
sFrom = "\\mypath\file3.txt": sTo = "\\mypath3\folder3"
fsf.copyfile sFrom, sTo
sFrom = "\\mypath\file4.txt": sTo = "\\mypath4\folder4"
fsf.copyfile sFrom, sTo
sFrom = "\\mypath\file5.txt": sTo = "\\mypath4\folder5"
fsf.copyfile sFrom, sTo

f.Close

Exit Sub

errhndle:

f.WriteLine "Failure copying from " & sFrom & _
" to " & sTo

Resume Next
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Greg" wrote in message
...
I have this piece of code that will move workbooks around to diferent
pc's. That part works great. But I want to create a log that will be a text
file that will append to itself and tell me what pc did not get the file
when the routine runs. I know that it is an errorhndle event I just don't
know how to code it to a log so that it has the detail that I want. Greatly
appreciate any and all help.

TIA

Sub Main()

On Error GoTo errhndle
Dim fsf As Object
Set fsf = CreateObject("Scripting.FileSystemObject")
fsf.copyfile "\\mypath\file1.txt", "\\mypath1\folder1"
fsf.copyfile "\\mypath\file2.txt", "\\mypath2\folder2"
fsf.copyfile "\\mypath\file3.txt", "\\mypath3\folder3"
fsf.copyfile "\\mypath\file4.txt", "\\mypath4\folder4"
fsf.copyfile "\\mypath\file5.txt", "\\mypath4\folder5"

errhndle:


Resume Next
End Sub