vba help - Copy all folder and subfolders names from previous month to next month

[Mallesh23]

Hi Team,

Need help to copy all main folders and subfolders Names from source path to Destination Folder path.
Everymonth I copy previous months folders and put in current months folder and delete all files from Current months folder.and subfolders

So in short I want only Empty folder and subfolder names without data into it.
approx 450 folders.

how to achieve via VBA

 

[bobsan42]

try if this works for you:

Sub copyFolders()
    Dim src As String, dest As String, strCommand As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Select source folder"
        If .show = 0 Then Exit Sub
        src = .SelectedItems(1)
    End With
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Select destination folder"
        If .show = 0 Then Exit Sub
        dest = .SelectedItems(1)
    End With
    strCommand = "xcopy """ & src & """ """ & dest & """ /t /e"
'    CreateObject("Wscript.Shell").Exec (strCommand)
    CreateObject("Wscript.Shell").Run strCommand, 0, True
    msgbox "Ready!"
End Sub

it can be automated by directly providing src and dest folders instead of selecting them.

 

[Mallesh23]

Hi BobSans.

Thanks for your help, its working now.


Thanks
mg