πŸš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #4573

Re: Nieuw bestand aanmaken...

#4573
From: Cliff Beeckman
Date: Tue, 12 Aug 2003 16:20
42 lines
2548 bytes
mmm lukt ook niet met die code... andere ideeοΏ½n?

"Billyke" <gert.verstappen@gmx.net> schreef in bericht
news:bhb39t$8mc$1@reader08.wxs.nl...
>
> "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: <ct8_a.63347$F92.7253@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!216.170.153.135.MISMATCH!tdsnet-transit!newspeer.tds.net!205.215.62.125.MISMATCH!in.100proofnews.com!in.100proofnews.com!cox.net!news-xfer.cox.net!newsfeed.news2me.com!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
References: <gB7_a.63258$F92.7141@afrodite.telenet-ops.be> <bhb39t$8mc$1@reader08.wxs.nl>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,5eaac148e3110d3
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-08-12 09:20:27 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!216.170.153.135.MISMATCH!tdsnet-transit!newspeer.tds.net!205.215.62.125.MISMATCH!in.100proofnews.com!in.100proofnews.com!cox.net!news-xfer.cox.net!newsfeed.news2me.com!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "Cliff Beeckman" <cliffbeeckman@pandora.be>
Newsgroups: be.comp.programming
References: <gB7_a.63258$F92.7141@afrodite.telenet-ops.be> <bhb39t$8mc$1@reader08.wxs.nl>
Subject: Re: Nieuw bestand aanmaken...
Lines: 44
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <ct8_a.63347$F92.7253@afrodite.telenet-ops.be>
Date: Tue, 12 Aug 2003 16:20:24 GMT
NNTP-Posting-Host: 213.118.139.149
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1060705224 213.118.139.149 (Tue, 12 Aug 2003 18:20:24 MET DST)
NNTP-Posting-Date: Tue, 12 Aug 2003 18:20:24 MET DST
Organization: Telenet Internet