🚀 go-pugleaf

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