inchidere fisier

Open "file.txt" For Append As #1
...
si restul
e in VB6
E nevoie sa fac manevra open/close la fiecare scriere sau il pot inchide la finalul sesiunii odata cu form-ul?

Il deschizi si il inchizi de fiecare data cand doresti sa  scrii in fisier,e singura cale.Ai putea sa salvezi toate operatiunile in variabile si sa le scrii pe toate o singura data sau sa scrii o subrutina care te va ajuta sa scrii doar datele,...variante ar fi destule depinde ce vrei sa faci.
Ca idee eu as folosi in loc de  #1 ( ca sa eviti unele erori,eu m-am 'parlit'  de cateva ori si nu mai folosesc) exemplu de mai jos.

Dim ff as integer
ff=FreeFile

Open "cale_fisier" for append as ff

'=========================================Exemplu====================
Function Gpath() as string
   Gpath=app.path & "\fisier.txt"
End function

Function Writedata(byval strdata as string)
Dim freefile as integer
ff=FreeFile
  Open Gpath For Append as ff
      Print #ff, vbCrLF & strdata
   Close #ff

End Sub

REM cand il folosesti  nu trebuie decat sa apelezi functia reutilizabila
de exemplu

Writedata cstr(text1.text)

Sper sa-ti fie de folos.
Respec

Edited by Sorin Nedelcu, 24 January 2010 - 15:59.

Daca ai mai multe deschise poti scrie un singur "Close" la sfarsit si le va inchide pe toate eg.

dim FF as integer
FF = FreeFile()

open "c:\myfile.txt" for append as FF
open "c:\myfile.dat" for input as FF
open "c:\myfile.exe" for binary as FF

Close

Edited by horohoro, 12 February 2010 - 01:09.