Gemme koder i txt-filer

kan du bruge dette??

module:

Public Sub SkrivFil(strFilnavn As String)
  Dim strTekst As String
  strTekst = Form1.Text1.Text
  Open strFilnavn For Output As #1
    Print #1, strTekst
  Close #1
End Sub


knap:

Private Sub command1_Click()
  Dim minTekst As String
  minTekst = Text1.Text

  Open \"c:\\test.txt\" For Output As #1
  Write #1, minTekst
  Close #1
End Sub

tror forresten kun du behøver det module vis du også skal loade:

  Dim minTekst As String
  Open \"c:\\test.txt\" For Input As #1
  Input #1, minTekst
  Close #1

  Text1.Text = minTekst

En anden ting, hvis man gemmer en fil og bare skriver: Open \"filnavn.fil\" for output as #1, skulle den så ikke gemme filen i det samme bibliotek som programmet kører fra??

hvad mener du?

Jeg skal bare finde ud af hvordan man får programmet til at gemme filen i det samme bibliotek som programmet ligger i. Uden at man skal skrive C:\\bibliotek\\fil osv.

skriv :

Open app.path + \"\\test.txt\" For Input As #1
eller:
Open app.path & \"\\test.txt\" For Input As #1

kan ikke huske hvilken

nemmere at skrive
path=app.path
en gang for alle i form.load :-) så kan du nøjes med at angive filens navn fordi stien er defineret.