G
goo
Guest
This seems to work 
Thanks Laura procedure checkDirectory : define input param ipDirectory as char no-undo. define input param ipParentId as int no-undo. def var cDirectory as char no-undo. def var cText as "System.String[]" no-undo. def var ixx as int no-undo. ix = ix + 1. bDirectoryExist = System.IO.Directory:Exists(ipDirectory). if not bDirectoryExist then do: MESSAGE ipDirectory ' eksisterer ikke' VIEW-AS ALERT-BOX. return ?. end. create ttDirectory. assign ttDirectory.iDirectoryId = ix ttDirectory.cDirectoryName = ipDirectory ttDirectory.iParentDirectory = ipParentId . assign cText = System.IO.Directory:GetDirectories(ipDirectory) . cDirectory = cText:GetValue(ixx) no-error. if not System.IO.Directory:Exists(cDirectory) then return. do ixx = 0 to cText:Length: cDirectory = cText:GetValue(ixx) no-error. MESSAGE ixx ' - inne' cDirectory VIEW-AS ALERT-BOX. run checkDirectory(cDirectory,ttDirectory.iDirectoryId). end. if ix gt 300 then stop. end.
Continue reading...
Thanks Laura procedure checkDirectory : define input param ipDirectory as char no-undo. define input param ipParentId as int no-undo. def var cDirectory as char no-undo. def var cText as "System.String[]" no-undo. def var ixx as int no-undo. ix = ix + 1. bDirectoryExist = System.IO.Directory:Exists(ipDirectory). if not bDirectoryExist then do: MESSAGE ipDirectory ' eksisterer ikke' VIEW-AS ALERT-BOX. return ?. end. create ttDirectory. assign ttDirectory.iDirectoryId = ix ttDirectory.cDirectoryName = ipDirectory ttDirectory.iParentDirectory = ipParentId . assign cText = System.IO.Directory:GetDirectories(ipDirectory) . cDirectory = cText:GetValue(ixx) no-error. if not System.IO.Directory:Exists(cDirectory) then return. do ixx = 0 to cText:Length: cDirectory = cText:GetValue(ixx) no-error. MESSAGE ixx ' - inne' cDirectory VIEW-AS ALERT-BOX. run checkDirectory(cDirectory,ttDirectory.iDirectoryId). end. if ix gt 300 then stop. end.Continue reading...