loFs = CREATEOBJECT("Scripting.FileSystemObject") loFs.CopyFolder("c:\ctemp", "c:\ctemp2")And it worked. But when I tried the following:
lcFrom = "\\webtest\D\webclnt\" lcTo = "\\webtest\D\WebClntBakOct72004\" loFs = CREATEOBJECT("Scripting.FileSystemObject") SCAN lcClnt = ALLTRIM(Iwc_ID) lcClntWD = lcFrom + lcClnt + "\IMIRMWeb\IMWebDocs\" lcClntCSS = lcFrom + "html\" + lcClnt + "\images\" lcClntBak = lcTo + lcClnt + "\" IF DIRECTORY(lcClntWD) MD &lcClntBak MESSAGEBOX(DIRECTORY(lcClntWD)) && both messageboxes message ".T." MESSAGEBOX(DIRECTORY(lcClntBak)) loFs.CopyFolder(lcClntWD, lcClntBak) ENDIF EXIT && temporary, I just want to run it on the first one until it works ENDSCANit failed. I get the error "OLE Error code 0x800a004c: Unknown COM Status Code." With CopyFolder can you use paths like "\\webtest\D\webclnt\"? Or does it have to be mapped? Any other way to do this?