VBS dosyası ile txt dosyası oluşturup veri girmek

[Orion1]

Merhaba arkadaşlar.
Vbscript ile txt dosyası oluşturup ona veri girmek istiyorum ama hata veriyor.Open satırnda.Nasıl yapmalıyım.Kodlar aşağıdadır.

open "C:\evrendosyalar.txt" for output as #1
for i = 1 to dosya.count
deg= i & vbtab & d(i)
print #1, deg
deg=""
next
close #1

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub test()
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\testfile.txt", ForWriting, True)
   f.WriteBlankLines 2
   f.WriteLine "Hello World!"
   Set f = fso.OpenTextFile("C:\testfile.txt", ForReading)
   WriteBlankLinesToFile = f.ReadAll
End Sub

 

[halit3]

böyle olabilirmi

Dosya = "C:\evrendosyalar.txt"
Open Dosya For Output As #1
For i = 1 To 10
deg = i & Chr$(9) & i
Print #1, deg
deg = ""
Next i
Close #1

Merhaba arkadaşlar.
Vbscript ile txt dosyası oluşturup ona veri girmek istiyorum ama hata veriyor.Open satırnda.Nasıl yapmalıyım.Kodlar aşağıdadır.

open "C:\evrendosyalar.txt" for output as #1
for i = 1 to dosya.count
deg= i & vbtab & d(i)
print #1, deg
deg=""
next
close #1

 

[halit3]

OUTPUT komutu var olan dosyayı siler ve yeni kayıt yapar ama alt alta kayıt yapmaz

APPEND komutu dosya yoksa yeniden oluşturur ve kayıtları silmeden alt alta kayıt yapar

 

[Orion1]

Halit bey bu komutları ben vbscript kodları olarak kullanacaktım.Ama olmadı.EXCELDE vba da ve vb serilerinde oluyor ama vbscriptt e olmadı.
Hamit bey istediğm kodlar Verdiğiz kodlardı teşekkür ederim.