Devon, Would you please send the definition of dirExists
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Devon McCormick Sent: Wednesday, August 01, 2007 07:15 To: Programming forum Subject: Re: [Jprogramming] copy directory tree I haven't looked at this in a while, but I believe it works. copyDir=: 4 : 0 NB.* copyDir: copy directory x. and all its contents to directory y. fromdir=. endSlash x. [ todir=. endSlash y. assert. dirExists fromdir if. -.dirExists todir do. createdir todir end. assert. dirExists todir fls=. dir fromdir,'*' subdirs=. 0{"1 (whd=. 'd' e.&>4{"1 fls)#fls fls=. 0{"1 (-.whd)#fls sf=. 0 0 NB. Count successes and failures. for_fl. fls do. fl=. >fl if. fexist todir,fl do. ferase todir,fl end. NB. Overwrite existing ct=. 1 0 NB. Assume 1 success, 0 failures... try. (fromdir,fl) fcopy todir,fl catch. ct=. 0 1 end. sf=. sf+ct end. for_sbdr. subdirs do. sbdr=. >sbdr if. -.dirExists sbdr do. createdir sbdr end. ct=. 1 0 NB. Assume 1 success, 0 failures... try. ssf=. (fromdir,sbdr) copyDir todir,sbdr catch. ct=. 0 1 end. sf=. sf+ssf+ct end. ) NB.* fcopy: copy file x. to y. using WIN32 API call. fcopy=: 'CopyFileA' win32apir @: (; ;&1) NB.EG 'c:\temp\src.xls' fcopy 'c:\temp\dest.xls' NB. Returns 1 iff successful endSlash=: 3 : 0 NB.* endSlash: ensure terminal path separator char, e.g. for directory. y.,PATHSEP_j_#~PATHSEP_j_~:{:y. NB.EG -:/endSlash &.>'C:\ADir\';'C:\ADir' NB. 1 ) NB.* dirExists: 0: dir does not exist; 1: exists dirExists=: 3 : '0&~:#@:dirlist1 (-PATHSEP_j_={:y.)}.y.=. ,y.' NB.* createdir: Create directory createdir=: 3 : 'try. 1!:5 <y. catch. 0 end.' NB.* createDirPath: create (all elements of) directory path. createDirPath=: 3 : 0 ps=. PATHSEP_j_ dn=. y. NB. Break path into pieces, e.g. 'C:\tmp\foo'->'C:';'\tmp';'\foo' pdn=. <;.1 (ps#~ps~:{.dn),(-ps={:dn)}.dn if. ':' e. dn do. NB. Remove '\' before drive letter pdn=. (<dn{.~>:dn i. ':') 0}pdn NB. Combine drive letter w/1st path element, e.g. '\C:';'\tmp';'\foo'->'C:\tmp';'\foo' pdn=. ((<ps-.~>0{pdn),&.>1{pdn) 0}}.pdn end. NB. Successive directories to create, e.g. 'C:\tmp';'C:\tmp\foo';'C:\tmp\foo\bar' d2c=. <"1 pdn#~-.dirExists"1 pdn=. ;\pdn rc=. 1 NB. Success too if they're already all there if. 0<#d2c do. rc=. createdir&>d2c end. rc ) On 7/31/07, Sherlock, Ric <[EMAIL PROTECTED]> wrote: > > Options for copying a directory tree: > 0. write a verb using fcopynew verb from files.ijs and verbs from > dir.ijs to copy each file in the tree > 1. do the same but use winapi functions. > 2. call xcopy > > > I haven't found anything in my forum/wiki search that covers this issue. > Has anybody already tackled this and is happy to share advice/code? > > More on my desired usage: > I have a set of directory trees. > Each tree contains files and directories that together define a > configuration for a simulation program. > > Under programmatic control, I want to copy a chosen template to a > sub-directory of the users directory. > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > -- Devon McCormick, CFA ^me^ at acm. org is my preferred e-mail ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
