Seems that this moves the entire Source Folder to the Destination Folder.
Is there a way to tweak it to only move the content of Source, directly into Destination ?
sourcedir = E:\Reports
targetdir = F:\Reports
;
FOF_CREATEPROGRESSDLG = 0 ;Create Progress dialog
oShell = ObjectCreate("Shell.Application")
oFolder = oShell.NameSpace(targetdir)
oFolder.MoveHere( sourcedir, FOF_CREATEPROGRESSDLG )
oShell = 0
;
E:\Reports\Folder 1, 2, 3, etc
Results in moving the entire e:\Reports folder into F:\Reports.
ie, F:\Reports\Reports\Folder 1, 2, 3,
and then deleting E:\Reports
I don't want to remove e:\reports, just subfolders and files.
and move them directly into the Destination Folder Reports.
Also, I can't just change Destination to F:\ instead of F:\Reports, as it has different ACL's from Source that can't change.
Running on Server 2012 R2.
Thanks,
CadJoe
WinBatch, Gotta Love It!
Ok, all fixed.
Might not be the correct way, but works.
I used DirItemize to get the sub folders, and then put oFolderMove inside For Loop, changing the source each time with Dest static.
I also changed FOF to value 16 to suppress Prompts.
For FOLDER_LOOP = 1 To DIR_COUNT
;
CURR_DIR=ItemExtract(FOLDER_LOOP, FOLDER_LIST, @TAB)
;
WinTitle("", CURR_DIR)
;
sourcedir = (strcat(SOURCE_PATH,"\",CURR_DIR))
;
;
FOF_CREATEPROGRESSDLG = 16 ; Suppress Prompt
oShell = ObjectCreate("Shell.Application")
oFolder = oShell.NameSpace(targetdir)
oFolder.MoveHere( sourcedir, FOF_CREATEPROGRESSDLG )
oShell = 0
;
;
NEXT FOLDER_LOOP
Works great now.
Thanks,
CadJoe
WinBatch, Gotta Love It!
You could always use the Shell Operations Extender's aFileCopy function. But if you boat is floating, why change course?
That might be a waterfall up ahead...
Worrywart.
heh heh...