Kako da dopisem nesto u TXT fajl npr. ako fajl postoji If Fso.FileExists onda dopisi
"TRA LA LA ", a ako ne postoj onda nista.
"TRA LA LA ", a ako ne postoj onda nista.
Potpis
||< ArtifeX >||
Kako da dopisem nesto u TXT fajl?
Zaključano
Zakačeno
Napravi jedno komandno dugme i ubaci ovo:
Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"
Code:
Private Sub Command1_Click()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
Set textstream = fso.OpenTextFile("C:\tekst.txt", ForWriting, True, TristateFalse)
textstream.WriteLine ("Upisi ovo.") 'Ako postoji upisuje tekst
Else
Exit Sub
End If
End Sub
Private Sub Command1_Click()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
Set textstream = fso.OpenTextFile("C:\tekst.txt", ForWriting, True, TristateFalse)
textstream.WriteLine ("Upisi ovo.") 'Ako postoji upisuje tekst
Else
Exit Sub
End If
End Sub
Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"
Potpis
System Alert
ili
naravno ovo je samo za dodavanje bez provere da li fajl postoji ili ne
Code:
Dim ff as Integer
ff = FreeFile
Open "c:\neki fajl.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff
Dim ff as Integer
ff = FreeFile
Open "c:\neki fajl.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff
naravno ovo je samo za dodavanje bez provere da li fajl postoji ili ne
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
Zahvaljujem se obojci.
Potpis
||< ArtifeX >||
Evo upravo sam probao i kod ovog prvog kode na ova 3 reda
Javlja ovu gresku "User-diferent type not defined".
Zasto i sta da radim.
Code:
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream
Javlja ovu gresku "User-diferent type not defined".
Zasto i sta da radim.
Potpis
||< ArtifeX >||
Citat:
Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"
Jesi li uradio to ?
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
E da to sam zaboravio i sada radi nego ja sam hteo da dopise, a ne da prepise celu sadrzinu teksta i da upise svoju.
Znaci da se sadrzina texta ne brise nego da se uvek dopunjuje.
Ako znate pomagajte.
Znaci da se sadrzina texta ne brise nego da se uvek dopunjuje.
Ako znate pomagajte.
Potpis
||< ArtifeX >||
Samo zameni ForWriting sa ForAppending.
Radi
Code:
Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim ff As Integer
ff = FreeFile
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
Open "c:\tekst.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff
End If
End Sub
Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim ff As Integer
ff = FreeFile
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
Open "c:\tekst.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff
End If
End Sub
Potpis
||< ArtifeX >||