🚀 go-pugleaf

Na de eerste keer de listbox leegmaken, en alleen je dir laten staan.



"Sven Daems" <cyberbike9@hotmail.com> schreef in bericht
news:2e1f916.0311181036.631dbb2c@posting.google.com...
> Beste
>
> Ik ben bezig met een programmatje te schrijven in Visual Basic waarbij
> je 2 bepaalde mappen kunt synchroniseren.
>
> Op't formulier staat ��n Listbox (list1), ��n FileListBox (file1), ��n
> DirListBox (Dir1) en ��n DriveListBox (Drive1)
>
> De drive, dir & filelistbox zijn gekoppelt aan elkaar. Als de drive of
> de dir veranderd, veranderen de dirlistbox en de filelistbox ook.
> Vanaf de filelistbox veranderd voert de pc de public sub
> File1_pathChange() uit. Deze wordt ook uitgevoerd als 't forum geladen
> wordt (want dan veranderd het filelistbox ook, van nix naar de inhoud
> van de standaard folder).
>
> In de listbox moet eigenlijk hetzelfde komen te staan als in de
> FileListbox, maar achter de bestanden moet ook komen te staan wanneer
> ze voor het laatst veranderd zijn, (DateLastModified).
>
> In file1_PathChange wordt eerst de listbox leeg gemaakt, vervolgens
> wordt er in de variable Aantal het aantal lijnen gezet dat de
> FileListbox telt (= het aantal bestanden in de betreffende map), de
> variable nummer wordt op 0 gezet (0 omdat dat de eerste lijn is van de
> listbox). Er wordt dan een for next lus gedaan, evenveel als er
> bestanden in de map staan.  Voor elk bestand wordt de laaste datum
> opgezocht en die datum wordt samen met de bestandsnaam geplaatst in de
> listbox.
>
> De 2 regeltjes:
>     Set fs = CreateObject("Scripting.FileSystemObject")
>     Set f = fs.GetFile(info)
> heb ik gevonden via MSDN. Ik weet dat ze dienen om aan
> DateLAstModified te komen, maar de exacte uitleg ervan snap ik niet.
>
> In ieder geval, de eerste keer als die public sub wordt uitgevoerd
> (als het forum geladen wordt, 'k heb ook al geprobeert het aan een
> knop te koppelen, dus niet als't forum geladen wordt maar dan hebk't
> zelfde probleem) voert de pc alles correct uit. Maar vanaf ik de dir
> verander, dus de filelistbox veranderd dan ook, krijg ik fout 53 'File
> Not Found' en bij debug duid hij de regel
> "Set f = fs.GetFile(info)"
> aan.
>
> Weet iemand hier een oplossing voor?
>
> Met vriendelijke Groeten
>
> Sven Daems
>
> public Sub File1_PathChange()
> List1.Clear
> Aantal = File1.ListCount
> Nummer = 0
> For X = 1 To Aantal
>     Bestand = File1.List(Nummer)
>     info = Dir1.Path & File1.List(Nummer)
>     Set fs = CreateObject("Scripting.FileSystemObject")
>     Set f = fs.GetFile(info)
>     List1.AddItem Bestand & " " & f.DateLastModified
>     Nummer = Nummer + 1
> Next X
> End Sub