Hi Mari,
You can use CopyFolder method of File System Object as follows:
Sub CopyFolder()
Dim fso
Dim sfol As String, dfol As String
sfol = "c:\MyFolder" ' change to match the source folder path
dfol = "e:\MyFolder" ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) Then
fso.CopyFolder sfol, dfol
Else
MsgBox dfol & " already exists!", vbExclamation, "Folder
Exists"
End If
End Sub
For details refer to Microsoft MSDN:
CopyFolder Method
http://msdn.microsoft.com/en-us/library/xbfwysex(v=VS.85).aspx
FileSystemObject
http://msdn.microsoft.com/en-us/library/z9ty6h50(v=VS.85).aspx
________________________________________
Thanks & Regards
Ashish Jain
McKinsey India Knowledge Center
(Microsoft Certified Application Specialist)
(Microsoft Certified Professional)
http://www.excelitems.com
http://www.openexcel.com
________________________________________
On Sep 26, 3:38 pm, Mari Krish <marimac...@gmail.com> wrote:
> Hi Team,
>
> Here I have a requirement to copy folder from one location to another
> location which is contain a specific Name.
>
> Ex:
>
> I Have a folder AAA
>
> AAA has 3 Subfolder as aaa1, aaa2, aaa3.
>
> All the above said subfolders contains Each 2 Folders as (aaa1_Input &
> aaa1_Output, aaa2_Input & aaa2_Output, aaa3_Input & aaa3_Output )
>
> Requirement:
>
> Now I have to copy all the Output Folder from each folders and copy it
> to a new location.
>
> Please assist me to make it possible through VBA code.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
