comando WAIT coinvolge tutti i form

[Ceskho]

E' illeggibile il codice così....

Comunque fsurfing mi ha illuminato così:
associ ciò che devo fare ad un processo e con un timer controlli sempre in che stato è il processo; non appena restituisce 0 (cioè ha finito) allora vai avanti con il tuo codice....

[leo72]

Codice: [Seleziona]

DIM hProcess AS Process
FOR EACH item IN source
  IF IsDir(item) THEN 
    MKDIR destination &/ File.Name(item)
      FOR EACH subitem IN RDir(item, "*")
        IF IsDir(item &/ subitem) THEN 
          hProcess = MKDIR destination &/ File.Name(item) &/ subitem WAIT
        ELSE 
          hProcess = COPY item &/ subitem TO destination &/ File.Name(item) &/ subitem WAIT
        ENDIF 
      NEXT 
  ELSE 
    TRY hProcess = COPY item TO destination &/ File.Name(item) WAIT
  ENDIF 
NEXT

Prova a far così (non ho provato il codice).

il "processo =" si può usare solo con comandi shell ...
penso sia una limitazione del COPY di gambas .... incricca inevitabilmente la gui quando il file è di dimensioni elevate ... forse farò una micro applicazione esterna che svolga la funzione ( in maniera tale che l'applicazione ad incriccarsi sia un'altra e non la principale ) o mi appoggerò alla SHELL è che con la shell mi diventa problematico gestire gli eventuali messaggi di errore e i messaggi di avvenuta copia ...

[leo72]

Perché allora non usare direttamente il comando "cp" da terminale richiamandolo con Shell? Così risolvi entrambi i problemi.