oprette fil i vb

UPZ... Det skulle være:
Add(App.path & "test\test.txt")
Ikke
Add(App.path"test\test.txt")

Du mangler en \
Add(App.path & "\test\test.txt")
-SCB

Hej.

Skal filen ikke først åbnes og derpå kan skrives til den?

Open app.path & "\test.txt" for OutPut as #1
  Print #1, "dit indhold"
Close #1

M.v.h.  Jørn

Fortsættelse:

Hvis der senere skal tilføjes til en eksisterende fil, skal den åbnes for 'Append'.

M.v.h. Jørn

sbc/teknikeren > App.path kan i visse tilfælde indeholde en \ som sidste tegn (f.eks "C:\"). Derfor kan man f.eks. generelt bruge denne lille fætter sammen med app.path:

if not Right(App.Path, 1) = "\" then
  Sti = app.path & "\Ny Mappe"
else
  Sti = app.path & "Ny Mappe"
end if

I øvrigt kan man ikke oprette en fil med Add som vist (så skal det være i forbindelse med et filesystemobject, hvorpå man kører metoden add) - brug joerns svar, evt suppleret med Freefile - kik i hjælpen under denne (sikrer, at du ikke åbner en fil med et nummer, der allerede bruges...

filnummer = Freefile
Open app.path & "\test.txt" for OutPut as #filnummer
  Print #filnummer, "dit indhold"
Close #filnummer '<- Vigtig, ellers kan filen beskadiges

Der er masser af besvarede spørgsmål om læsning/skrivning fra/til filer, se fx.
www.eksperten.dk/spm/100330 (skriv til fil)
www.eksperten.dk/spm/252223 (læs fra fil)

sorry - www.eksperten.dk/spm/252223 viser BEGGE dele "helt fra bunden" ;o)

hmmm :) Den skulle kunne oprette en fil... Altså når den er inde i prog. skal man kunne trykke på en knap og den opretter en fil i /test ....

Hej.

Hvis ikke mappen 'test' eksisterer på app.path, må du enten oprette den først (med 'mkdir') eller også udføre error-tjek om det findes.

Hvad skal filen indeholde?  Bare 'hej verden'?

m.v.h.  Jørn

Den eksisterer.... Filen skal bare ineholde - ja - hej verden...

Du har jo allerede alt det du skal bruge, som du kan samle til følgende:

Dim Sti as integer
Dim filnummer as integer

if not Right(App.Path, 1) = "\" then
  Sti = app.path & "\test"
else
  Sti = app.path & "test"
end if

filnummer = Freefile
Open sti & "\test.txt" for OutPut as #filnummer
  Print #filnummer, "hej verden"
Close #filnummer

Hvordan gør man så sådan at det checker i app.path om der er en fil der hedder "hej verden" med indholdet "hej med dig" og så enabler en knap?

Hej tekniker.

Dim linie as string

If Len(Dir(App.Path & "\hej_verden.txt")) > 0 Then
  Open app.path & "\hej_verden.txt" for Input as #1
    Line Input #1, linie
  close #1
  If linie = "hej med dig" Then Command1.enabled = True
End if


m.v.h.  Jørn