login  Naam:   Wachtwoord: 
Registreer je!
 Forum

[VBScript]: Synchroniseren van 2 mappen met ProgressBar

Offline dbe123 - 02/04/2009 10:44
Avatar van dbe123Lid Hallo,

Ik heb een probleempje met een script dat ik gedeeltelijk zelf geschreven heb, en gedeeltelijk gekopieerd heb.

Dit script zal bestanden gaan synchoniseren van A naar B, wanneer het bestand nieuwer is of verschilt in grootte. Bovendien zal het overbodige bestanden en mappen verwijderen op de Doelmap.

Dit stuk werkt, zonder probleem, alleen kun je geen ProgressBar zien, en lijkt het of het script niet aan het werken is voor de gebruiker.

Nu komt het tricky part  
Ik wil dus een ProgressBar invoegen, die per bestand dat gekopieerd wordt de voortgang laat zien.

Dit krijg ik dus niet aan de praat. Ik krijg telkens een Windows Script Host Error te zien. Ik heb geen idee wat er fout gaat.

Iemand enig idee?  

Code

Het gaat steeds mis op regel 145 / karakter 25

Error Message Screenshot

Help!  

4 antwoorden

Gesponsorde links
Offline Stijn - 02/04/2009 12:15
Avatar van Stijn PHP expert Ik ben eens aan het zoeken hé maar ik heb een andere (niet direct zichtbare) bug gevonden. Op lijn 131 zet je intFCount op 0. Wat als je for lus niet wordt uitgevoerd op lijn 145. Dan blijft de variabele op 0 staan en resulteert in een divideByZeror error op lijn 152.
Offline Koen - 02/04/2009 12:19 (laatste wijziging 02/04/2009 12:21)
Avatar van Koen PHP expert Ik weet niet of het er iets mee te maken heeft, maar je gebruikt dezelfde variabele in je for...each loop als in de loop waar deze for...each loop in staat...
vbs code - Bekijk de code zonder highlighting - Klap code in 
  1. For each oFileSource in FileListSource

  2. ' ...

  3.       For each oFileSource In FileListSource

  4.          intFCount = intFCount + 1

  5.       Next

  6. ' ...

  7. Next


Probeer eens om een verschillende variabelenaam te gebruiken!

Hmm, nvm, het gaat blijkbaar over de variabele "FileListSource"...
Offline Stijn - 02/04/2009 12:37 (laatste wijziging 02/04/2009 12:46)
Avatar van Stijn PHP expert Ik gok (omdat ik het nog niet getest heb) dat het te maken heeft met de genest For each lus.

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. ...in FileListSource
  2. ...
  3.     ....In FileListSource


Voer volgende code eens uit en zeg me eens of het lukt. Bij mij geeft die altijd een fout op lijn 1 kolom 1 bij het compilen .

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Set FSO = CreateObject("Scripting.FileSystemObject")
  2. Set folders = FSO.GetFolder("d:")
  3.  
  4. For each folder In folders
  5.  
  6.     WScript.Echo "Folder: " & folder.Name
  7.  
  8.     For each folder In folders
  9.         WScript.Echo "Folder 2: " & folder.Name
  10.     Next
  11.  
  12. Next
Offline dbe123 - 02/04/2009 15:42 (laatste wijziging 07/04/2009 15:29)
Avatar van dbe123 Lid Sliphead, Stijn1989,

Thanks voor jullie reacties.

Ik heb zelf ook nog wat zitten zoeken, en heb de code als volgt aangepast:



Nu werkt de code wel, maar nog niet zoals ik het echt wil...  

Het is namelijk de bedoeling om een GUI hiervan te maken, gebruik makend van een HTML Application (een .hta dus).

Deze GUI gaat dus open met behulp van een Web Browser, en het is in dit venster dat ik een ProgressBar wil laten zien van het kopieerproces.

Hulp is welkom...   

Citaat:
Rens edit:
Lappen code op plaatscode.be!


Herwerkte Code

Niemand?  

Ok, bijna klaar  

Er zit volgens mij nog een foutje in de FOR-lus
Iemand een idee?

Link naar topic
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.21s