🚀 go-pugleaf

thx! werkt perfect...of toch tot nu toe ;-)

"Billyke" <gert.verstappen@gmx.net> schreef in bericht
news:bhbanq$6ci$1@reader11.wxs.nl...
>
> "Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
> news:ct8_a.63347$F92.7253@afrodite.telenet-ops.be...
> > 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.
> > >
> > >
> >
> >
>
> Hierbij ook de code voor de common-dialog, dit zou moeten werken:
>
> Private Sub cmdNewFile_Click()
> Dim iBestand As Integer
> Dim Bestand As String
>     CommonDialog1.Flags = cdlOFNOverwritePrompt Or cdlOFNPathMustExist
>     CommonDialog1.Filter = ".opl bestand (*.opl)|.opl"
>     CommonDialog1.FileName = "default.opl"
>     CommonDialog1.DefaultExt = ".opl"
>     CommonDialog1.ShowSave
>     Bestand = CommonDialog1.FileName
>     iBestand = FreeFile
>     Open Bestand For Append As #iBestand
>     Close #iBestand
>     MsgBox "File " & Bestand & " created!"
>
> End Sub
>
>