Article View: be.comp.programming
Article #3646Re: Volgend VisBas vraagje
From: TRAX
Date: Thu, 20 Nov 2003 22:09
Date: Thu, 20 Nov 2003 22:09
65 lines
2490 bytes
2490 bytes
> ts.Write(locatiemap1)
>
> ts.save()
>
> ts.Close()
>
vergeet maar, geeft geen syntax fout maar wel error bij runnen, zal even
mijn code kopi๏ฟฝren, bij mij werkt alles perfect.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
locatiemap1 = "jaja"
LocatieMap1_Wegschrijven()
LocatieMap1_Start()
End Sub
Public Sub LocatieMap1_Wegschrijven()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("C:\LocatieMap1.txt")
Dim f = fso.GetFile("C:\LocatieMap1.txt")
Dim ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write(locatiemap1)
ts.save()
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
fso = CreateObject("Scripting.FileSystemObject")
f = fso.GetFile("C:\LocatieMap1.txt")
ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
LocatieMap1 = ts.ReadAll
ts.Close()
TextBox1.Text = locatiemap1
End Sub
Technical Details
Message-ID:
<fYavb.34009$V%4.1236038@phobos.telenet-ops.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news-out1.nntp.be!propagator2-sterling!news-in-sterling.newsfeed.com!news-out.cwix.com!newsfeed.cwix.com!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mailReferences:
<3fbd201f$0$16844$ba620e4c@reader3.news.skynet.be> <NWavb.34007$r94.1170527@phobos.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII X-Google-Thread: 107324,4b8810dbc9c31d2d X-Google-Attributes: gid107324,public X-Google-Thread: fcea4,4b8810dbc9c31d2d X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2003-11-20 14:09:15 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news-out1.nntp.be!propagator2-sterling!news-in-sterling.newsfeed.com!news-out.cwix.com!newsfeed.cwix.com!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail From: "TRAX" <Stijn.Verspeet@pandora[delete.this].be> Newsgroups: be.comp.programming,nl.comp.programmeren References: <3fbd201f$0$16844$ba620e4c@reader3.news.skynet.be> <NWavb.34007$r94.1170527@phobos.telenet-ops.be> Subject: Re: Volgend VisBas vraagje Lines: 69 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1106 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: <fYavb.34009$V%4.1236038@phobos.telenet-ops.be> Date: Thu, 20 Nov 2003 22:09:15 GMT NNTP-Posting-Host: 213.118.43.187 X-Complaints-To: abuse@telenet.be X-Trace: phobos.telenet-ops.be 1069366155 213.118.43.187 (Thu, 20 Nov 2003 23:09:15 MET) NNTP-Posting-Date: Thu, 20 Nov 2003 23:09:15 MET Organization: Telenet Internet