vb常用文件读写操作

1、顺序文件的读写操作（Input， LineInput，Print，Write）
Open Filepath For (For Mode) As #Filenumber
For Mode有三种：Input是读文件，要求指定的文件必须已打开。Output是写文件，如果找
不到文件，则系统建一个文件并写入数据，覆盖原内容。Append是写文件，不过会在原文
件末尾写入数据。如果找不到文件，则系统建一个文件并写入数据。
（1）读文件
Line Input语句不读取文件中的回车符。
Dim textline As String
Dim nextline As String
Open App.Path & "/" & " REDIST.txt" For Input As
   Do Until EOF(1)
      Line Input , nextline
      textline = nextline + vbCrLf+ textline
   Loop
Close
'在Text1的属性中行设置Text1.MultiLine = teue,Text1.ScrollBars = 2
Text1.Text = textline
Input( )函数能读取文件中的回车符，且支持按用户指定的长度读文件。
Dim alltext As String
Open App.Path & "/" & " REDIST.txt" For Input As
If LOF(1) >= 700 Then
      MsgBox "文件太长。"
   Else
      alltext = Input(100, 700)
      Text1.Text = alltext
End If
Close
（2）写文件
Open App.Path & "/" & " REDIST.txt" For Output As
  Write , "We are Chinese"       '返回值是"We are Chinese" ,而不是We are Chi
nese
  Print , "We", "are", "Chinese" '返回值是We        are       Chinese
  Print , "We"; "are"; "Chinese" '返回值是WeareChinese
  Print , "We"; Spc(3); "are"; Tab(3); "Chinese" '返回值是We   are
   Chinese
Close
（3）其它文件操作
Kill "c:/Readme.txt"    '注意不经过回收站
Kill "c:/shine6832/*.*" '删除整个shine6832所有文件
FileCopy "c:/Readme.txt", "d:/Readme.txt" '从c盘复制到d盘
Name "c:/Readme.txt" As "c:/Read.txt"   '重命名文件
MkDir "c:/VB/shine6832" '创建一个新的目录或文件夹
RmDir "c:/shine6832" '只能删除空文件夹,如要删除整个目录,可用两个语句：_
                  Kill "c:/shine6832/*.*" :  RmDir "c:/shine6832"
st = FileDateTime("c:/shine6832/sd.txt") '返回文件的日期和时间戳
SetAttr(PathName As String, Attributes As VbFileAttribute) '设置一个文件的属性
信息
其中VbFileAttribute：Const vbReadOnly = 1，Const vbSystem = 4，Const vbHidden
= 2，'Const vbArchive = 32
2、随机文件的读写操作（Get，Put，Type……End Type）
随机文件的概念随机文件中所有的记录都是等长的，并且每一个记录都有一个记录号。根
据记录号，可以直接对任何记录进行读写操作。与顺序文件相比，随机文件在读写数据的
效率上占据了优势，然而在存储空间上却有所损失。由于随机文件的记录长度相等，指定
记录长度时，总是以最长信息的记录为依据。对于信息短小的记录而言，也获得了最大的
空间，这样就造成了浪费。
（1）文件语句的一般格式Open FileName FOR Random [Acess <Mode>] [Lock] As Filen
umber [Len=reclenth]  其中：
[Acess <Mode>]：可选参数，Acess是关键词。Mode有Read、Write、Read Write。
[Lock]：设定要打开文件的权限。有以下参数Share、Lock Read、Lock Write、Lock Wri
te、Lock Read Write。
例如：Open "D:/Student.dat" FOR Random Read Write As
（2）关闭文件语句的一般格式与顺序文件相同，在此省略。
（3）随机文件写语句的一般格式 Put〈文件号〉，〈记录号〉，〈变量〉例如：将“Lov
e”、2356、True三个数据，分别写入C盘“Test”文件的1、3、4号记录中。
Open "c:/Test.dat" For Random As  Len = 20
 Dim a As String:  a = "Love"
 Dim b As Integer: b = 2356
 Dim c As Boolean: c = True
   Put , 1, a
   Put , 3, b
   Put , 4, c
Close
（4）随机文件读语句的一般格式Get〈文件号〉，〈记录号〉，〈变量〉例如：将 “C:/
Book.txt”文件中的9号记录读出，并显示在标签框中。
'在模块里定义一个变量
Type Book
    Dim BookName As String * 10
    Dim BookPrice As Single
    Dim BookAuthor As String * 3
End Type
'窗体里
Sub cmdRead_Click()
Dim bookInfo As Book
 Open "c:/Book.txt" For Random As  Len = Len(booInfo)
    Get , 9, bookInfo
 Close
     lblBookName.Caption = bookInfo.BookName
     lblBookPrice.Caption = booInfo.BookPrice
     lblBookAuthor.Caption = booInfo.BookAuthor
End Sub
总的说来，无论是读，写，改都必须要指定记录号。注意：不能对指定的记录号删除。
*******************