如何用VB对text文件操作，在线等待（答者有分）

Question

如何用VB对text文件操作，以及对文件操作需要引用的Dll，请各位老鸟帮帮忙，小弟急啊！

Answer 1

'直接读取也可以,不用引用.'读
dim s
Open "f:\abc.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode) '将文件内容附给变量 S
Close #1
msgbox s'写
Open "f:\abc.txt" For Output As #1
Print #1, "这是写入的内容" '写入内容
Close #1

Answer 2

tztz520(午夜逛街) ：   谢谢！
   但是我只想取一行的数据，然后把这一行的数据修改掉，这个文本文件跟执行文件在同一个文件夹下面，我怎么取得当前执行的Exe文件在什么文件夹下面，如果文本文件不存在，我该用什么语句在当前文件夹下面新建一个文件，请指点，谢谢！

Answer 3

能告诉我，对文件操作要引用哪一个DLL呢，好久没用VB了，都不知道了

Answer 4

写入回车就用vbcrlf
如:
Print #1, "abcd" & vbcrlf取得某一行就可以这样
dim ls_Content() As String
ls_Content = Split(s, vbCrLf)'S就是你读出来的所有文本
msgbox  ls_Content(N)'这个N就是第N行了想写进去的时候就可以将ls_Content这个数组的第N改变后再将这个数组写回去.

Answer 5

If Dir(App.Path & "\backup.txt") = "" Then
   wjFileSys.CreateTextFile App.Path & "\backup.txt", True
End If
  Open App.Path & "\backup.txt" For Append Access Write As #filenumber '在已有内容后面添加
  Print #filenumber, "服务器数据备份时间：" & Format(date, "YYYY年MM月DD日") & "   备份目录：" & pBackDir & "   备份人：" & pUSRAcName
  Close #filenumber

Answer 6

对文件操作建议使用FileSystemObject对象，在工程中引用Microsoft Scripting Runtime,然后就可以用了，具体属性和方法参考MSDN