MACRO
I am looking for help with writing a macro that will copy ALL the excel files
in a folder and paste them in another directoiry. The files on the network in k\finance\manacs\mdr\ohd reports\ I wantto copy all the files in the OHD REPORTS folder and paste them l \ Clyde I have tried using record a macro but the macro is blank. Can anybody help. ? |
MACRO
Const DirFrom As String = "k:\fin\service\mothly reports\ohd reports"
Const DirTo As String = "k:\fin\ops\distribution\ohdreports" Sub CopyFiles() Dim oFSO As Object Set oFSO = CreateObject("Scripting.FilesystemObject") oFSO.CopyFolder DirFrom, DirTo End Sub -- HTH Bob Phillips "Clyde" <Clyde @discussions.microsoft.com wrote in message ... I am looking for help with writing a macro that will copy ALL the excel files in a folder and paste them in another directoiry. The files on the network in k\finance\manacs\mdr\ohd reports\ I wantto copy all the files in the OHD REPORTS folder and paste them l \ Clyde I have tried using record a macro but the macro is blank. Can anybody help. ? |
All times are GMT +1. The time now is 05:10 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com