file.vb

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· VB 代码 · 共 16 行

' FastScript v1.0          
' Files demo               


dim fs, s

  fs = new TFileStream("test.txt", fmCreate)

  s = "Testing file..."
  fs.Write(s, Length(s))
  fs.Write(#13#10, 2)
  s = "Tested OK!"#13#10
  fs.Write(s, Length(s))

  delete fs