Form fryser

Løkken, der kopierer filerne, skal kalde DoEvents ved hvert gennemløb, evt. oftere. DoEvents giver eksekveringstid til andre ventende tråde, hvorved din Form gentegnes, etc.

Øhh... Er ikke helt med. Nedenstående er mit script. Hvordan gør jeg det til et "doevent" ?

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder "c:\" & org_mappe & "\*", mappe
FSO.CopyFile "c:\" & org_mappe & "\*", mappe

Hej.  Er det igen manglende angivelse af, at det er VBA og ikke VB?  M.v.h. Jørn

Jeg går ud fra at du har en loop, som løber filerne igennem.. Du skal derfor bruge DoEvents:

for ...
  DoEvents
  'kopier-kode
next

eller med do/loop:

do ...
  DoEvents
  'kopier-kode
loop

- Jeg smider et svar, og håber på at det virker.
Ellers må du lige vise noget kode..

Glem mit svar.. jeg læste lige driis' igen.. ordentligt denne gang :-)

blueeye97 >> Ved den måde du kopierer på, kopieres alle filerne på én gang, og det er sådan set godt nok. Problemet er at det tager noget tid at kopiere filerne, og imens kopieringen foregår, kan Windows ikke opdatere formen og andet. Løsningen er at kopiere én fil af gangen og kalde DoEvents mellem hver fil. Det kræver godt nok lidt mere kode, men det er din eneste mulighed for at undgå, at formen fryser.

Jørn > Det er VB

Du har ret, det vil være for omfattende. Det er backup-ting. Og filantallet ændres jo løbende så det ville være tåbeligt at begynde på. Jeg finder mig i den lille pause. :o)

Alternativt skal du oprette en tråd, der laver kopiereingen og lade dit "hovedprogram" tage sig af formen (incl. events og repaints).

Det virker.

Men jeg kan nu ikke se, hvordan du vil lave en progress bar ud af de to kommandoer som du viser...

Det bedste (synes jeg) ville være, at loope igennem alle filerne.

Så kan du gøre sådan her:
dim AntalFiler as integer ' indeholder antallet af filer i mappen
dim AntalFilerKopieret as integer ' indeholder antallet af filer som er kopieret

- hent antallet af filer i mappen (variabel: "AntalFiler")
- opdater progressbar (0%)
- doevents
- start loop
--- kopier fil (tilføj 1 til variablen "AntalFilerKopieret")
--- opdater progressbar: 100 - (((AntalFiler - AntalFilerKopieret) * 100 ) / AntalFiler
- hop tilbage til "start loop"-område (sker automatisk)
- når alle filer er kopieret:
-- afslut loop
-- opdater progressbar (100%)

Det med antal procent.. formlen hedder:
100 procent, minus "forskellen mellem AntalFiler og AntalFilerKopieret gange 100, divideret med AntalFiler".

Eksempel:

AntalFiler i mappen er 8
AntalFilerKopieret er 2
Progressbar-værdien er 100 - (((8 - 2) * 100) / 8)) = 25%

..eller også skal DoEvents være inde i selve loopen:

...
- start loop
- DoEvents
--- kopier fil...
...