🚀 go-pugleaf

Hoi

Ik ben in de vorige topic goed geholpen maar nu zit ik terug vast. De
gebruiker moet ergens een standaard path vast kunnen leggen. Dat wil zeggen
dat het programma, elke keer als het opstart naar die path gaat. Die
standaard waarde kan de gebruiker opgeven in een apart venstertje,
formuliertje (menu bestand => opties). De waarde die daar verkregen wordt in
een variable LocatieMap1 opgeslagen. De bedoeling is dus dat de volgende
keer dat het programma opstart (nadat bv de computer al is afgezet en al, de
data moet dus op de schijf worden weggeschreven worden) de variable
LocatieMap1 wordt geladen met dezelfde data als de vorige keer in
LocatieMap1 staat. In de functie LocatieMap1_Wegschrijven wordt die data
weggeschreven in een textbestandje. Dat gebeurd ook echt, er bestaat echt
een bestandje LocatieMap1.txt waar de data in staat weggeschreven (deze
wordt bij elke wijziging gewoon overschreven, dus de data staat gewoon op de
eerste lijn).

Maar als het programma terug gestart wordt, dan wordt de functie
LocatieMap1_Start uitgevoerd. De data uit het bestandje LocatieMap1.txt moet
terug in de variable LocatieMap1 komen te staan, en dat doet de computer dus
niet. Ik zou niet weten wat er fout is aan het scriptje, omdat ik het bijna
letterlijk heb overgenomen van de MSDN library. Iemand een idee?

Met vriendelijk groeten

Sven Daems


Public Sub LocatieMap1_Wegschrijven()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile "C:\LocatieMap1.txt"
    Set f = fso.GetFile("C:\LocatieMap1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write LocatieMap1
    ts.Close
End Sub


Public Sub LocatieMap1_Start()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fso, f, ts
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("C:\LocatieMap1.txt")
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    LocatieMap1 = ts.ReadAll
    ts.Close
End Sub