Article View: be.comp.programming
Article #4571Re: Nieuw bestand aanmaken...
From: Billyke
Date: Tue, 12 Aug 2003 16:00
Date: Tue, 12 Aug 2003 16:00
32 lines
2124 bytes
2124 bytes
"Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
news:gB7_a.63258$F92.7141@afrodite.telenet-ops.be...
> Kan iemand mij de code geven hoe je een nieuw (leeg) bestand kan aanmaken
> met een door mij gekozen extensie. Ik zou graag via een knop "Nieuw
bestand
> aanmaken..." een leeg bestand willen aanmaken met de extensie .opl. Later
> zal ik via codes zinnen schrijven naar dit bestand. Heeft iemand er een
> idee. Via de commondialog-functie showsave lukt het niet. Iemand een idee?
> Ik werk met VB6.
>
> Alvast bedankt,
>
> Cliff Beeckman.
>
>
Met de commondialog kan je de positie en bestandsnaam bepalen, het bestand
fysisch aanmaken zal je zelf moeten doen.
Bijvoorbeeld:
Dim iBestand As Integer
Dim Bestand As String
Bestand = "C:\test.opl" 'Bestandsnaam en directory krijg je via de
commondialog
iBestand = FreeFile
Open Bestand For Append As #iBestand
Close #iBestand
Je kan ook het FileSystemObject hiervoor gebruiken, maar dit laat ik meestal
achterwege. Wat niet mogelijk is via de VB-functies doe ik met API's.
Technical Details
Message-ID:
<bhb39t$8mc$1@reader08.wxs.nl>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsgate.cistron.nl!amsnews01.chello.com!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mailReferences:
<gB7_a.63258$F92.7141@afrodite.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,5eaac148e3110d3 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2003-08-12 09:03:00 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsgate.cistron.nl!amsnews01.chello.com!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail From: "Billyke" <gert.verstappen@gmx.net> Newsgroups: be.comp.programming Subject: Re: Nieuw bestand aanmaken... Date: Tue, 12 Aug 2003 18:00:50 +0200 Organization: Planet Internet Lines: 34 Message-ID: <bhb39t$8mc$1@reader08.wxs.nl> References: <gB7_a.63258$F92.7141@afrodite.telenet-ops.be> NNTP-Posting-Host: 81.11.183.78 X-Trace: reader08.wxs.nl 1060704381 8908 81.11.183.78 (12 Aug 2003 16:06:21 GMT) X-Complaints-To: abuse@planet.nl NNTP-Posting-Date: 12 Aug 2003 16:06:21 GMT X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165