🚀 go-pugleaf

"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