hi,
mol wrote: ↑Sat Apr 04, 2020 6:58 am
fifth parameter is needed only for files at now - I didn't realized copy of folders.
YES, all with 1st Element = .T. are just Folder and not used for COPYHERE()
---
have play with your Code and found out how to "mark" files for COPYHERE()
have to Dblclick on last Folder Tree Item than all Item in Folder are "select" and i can start transfer.
it does work with Object from Array
Code: Select all
oFile := Form_1.Tree_1.Cargo(nValue)[5]
oDestFolder:CopyHere( oFile, xFlag )
but something is going on while he ask me for "dupe"
... it was a empty folder ...
than it seems to run ... still running ... hm
now sure why it take much more time than need ... hm
p.s. i like Progressbar so i can guess how long it take
mol wrote:
I can realize scanning folder by folder manually - by DBLClick, but, I have no idea how to select items to copy by DBLClick then
That i also have try that but no Concept found yet ...
Code: Select all
ON DBLCLICK DoTreeAction(This.Value) ;
when DblClick i "try" to "check" if Node have Sub-Folder which have Item or more Sub-Folder.
i can´t use
<ParentWindowName>.<TreeControlName>.IsTrueNode ( nValue ) --> Only returns .T. if the item contain sub-items (child items).
when Sub-Items was not create before
so what is the Solution ...
---
hm ...
what about a Array with {nParent, nChild , nGrandchildren} so when on nChild you got before
Code: Select all
<ParentWindowName>.<TreeControlName>.ParentValue
and after
Code: Select all
<ParentWindowName>.<TreeControlName>.ChildValue
if ChildValue is empty ... create Child
p.s.
when using FUNCTION Code i recommend to use Field-wide STATIC for Object like MEMBER in a CLASS.
so you have Object for next loop as "Parent" also in other Instance if Code is in same PRG