🚀 go-pugleaf

"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.

Cliff Beeckman wrote:
> Kan iemand mij de code geven hoe je een nieuw (leeg) bestand kan aanmaken
> met een door mij gekozen extensie.

Set FSO = CreateObject ("Scripting.FileSystemObject")
Set File = FSO.CreateTextFile ("test.opl", True)
File.WriteLine "Hoi"
File.Close

zoiets ?

Bert

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.
>
>

Heb ik even geprobeerd maar hij zegt als compile error: invalid use of
property waarbij hij verwijst naar de property 'file'...

"Bert Peers" <firstname@bpeers.com> schreef in bericht
news:is8_a.298621$Fc6.27112815@amsnews02.chello.com...
> Cliff Beeckman wrote:
> > Kan iemand mij de code geven hoe je een nieuw (leeg) bestand kan
aanmaken
> > met een door mij gekozen extensie.
>
> Set FSO = CreateObject ("Scripting.FileSystemObject")
> Set File = FSO.CreateTextFile ("test.opl", True)
> File.WriteLine "Hoi"
> File.Close
>
> zoiets ?
>
> Bert
>

"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

On Tue, 12 Aug 2003 16:28:24 GMT, "Cliff Beeckman"
<cliffbeeckman@pandora.be> wrote:

>Heb ik even geprobeerd maar hij zegt als compile error: invalid use of
>property waarbij hij verwijst naar de property 'file'...

Zet eens Microsoft scripitng library" aan in je referenties

en quote ne keer onderaan, tis gemakkerlijker

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
>
>