🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #4571

Re: Nieuw bestand aanmaken...

#4571
From: Billyke
Date: Tue, 12 Aug 2003 16:00
32 lines
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-mail
References: <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