Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
'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!!!"
|VBA if cell is empty msg box and stop program||3||30|
|Windows Script Host failed (Access is denied.) error||6||85|
|Scrollbar on an excel page||4||24|
|Can we place a tooltip on the actual vb6 form||5||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!