Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'This will copy all files to one level up 'option explicit dim SourceFolder, DestFolder ,fso, f Set fso = CreateObject("Scripting.FileSystemObject") SourceFolder = "C:\aaa\" DestFolder = "C:\bbb\" Set f = fso.GetFolder(SourceFolder) For Each file In f.Files fso.MoveFile SourceFolder & file.Name, DestFolder & file.name Next For Each subdir in f.SubFolders Set f = fso.GetFolder(SourceFolder & subdir.name) For Each file In f.Files fso.copyFile SourceFolder & subdir.name & "\" & file.Name, DestFolder & file.name Next Next msgbox "Finished!!!"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.