This VBA Function can move 100's of files of a particular extension (doc, .xlsx, mp4, jpg, etc) from multiple subfolders to a single master folder - KING OF EXCEL

Sunday, May 24, 2020

This VBA Function can move 100's of files of a particular extension (doc, .xlsx, mp4, jpg, etc) from multiple subfolders to a single master folder

This VBA Function can move 100's of files of a particular extension (doc, .xlsx, mp4, jpg, etc)  from multiple subfolders to a single master folder.  sounds interesting..right?
DOWNLOAD
Code: 😎
Sub easy_Move_Folder()
Dim FSO As Scripting.FileSystemObject
Set FSO = New FileSystemObject
Dim Master_Folder As Scripting.Folder
Dim Child_Folder As Scripting.Folder
Dim All_Files As Scripting.File
Set Master_Folder = FSO.GetFolder("F:\ORDER FILES")
For Each Child_Folder In Master_Folder.SubFolders
For Each All_Files In Child_Folder.Files
All_Files.Move "F:\kiran Practise\"
Next All_Files
Next Child_Folder
MsgBox "Please Check Your F:\kiran Practise Folder"
End Sub
Sub easy_Move_Folder2()
Dim FSO As Scripting.FileSystemObject
Set FSO = New FileSystemObject
Dim Master_Folder As Scripting.Folder
Dim Child_Folder As Scripting.Folder
Dim All_Files As Scripting.File
Set Master_Folder = FSO.GetFolder("F:\ORDER FILES")
For Each Child_Folder In Master_Folder.SubFolders
For Each All_Files In Child_Folder.Files
All_Files.Copy "F:\kiran Practise\"
Next All_Files
Next Child_Folder
MsgBox "Please Check Your F:\kiran Practise Folder"
End Sub
#evba #etipfree #eama #kingexcel
📤How to Download ebooks: https://www.evba.info/2020/02/instructions-for-downloading-documents.html?m=1

No comments:

Post a Comment