View: - 157
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public DestPath As String Public Sub MoveFolder() SourcePath = "C:\new folder" ' Folder you need to Move. DestPath = "H:\" ' Target folder OR Drive. Set FSO = New Scripting.FileSystemObject FSO.MoveFolder SourcePath, DestPath Set FSO = Nothing End Sub
