【VB6.0】文件操作函数整理

一、读取文本文件：

1、一行一行读取，并返回文本。

Function ReadFile(ByVal fPath As String) As String
    Dim fN As Integer,lineStrTmp as String
    fN = FreeFile
    Open fPath For input As #fN
        Do Until eof(fN)
            Line Input #fN, lineStrTmp
            ReadFile=ReadFile & lineStrTmp & vbcrlf
        Loop
    Close #fN
End Function

2、一行一行读取，直接把值赋给第二个参数，路径要求字符串变量。

Function ReadFile_HV(fPath As String,sourceString as String)
    Dim fN As Integer,lineStrTmp as String
    fN = FreeFile
    Open fPath For input As #fN
        Do Until eof(fN)
            Line Input #fN, lineStrTmp
            sourceString=sourceString & lineStrTmp & vbcrlf
        Loop
    Close #fN
End Function

3、一次读入所有文字。

Function ReadFile_ALL_HV(fPath As String,sourceString as String)
    Dim fN As Integer
    fN = FreeFile
    Open fPath For Binary As #fN
        sourceString=Input(LOF(1), #fN)
    Close #fN
End Function

二、保存文本文件：

1、覆盖已有数据的保存。

Function SaveFile_All(fPath as String,outString as String)
    Dim fN As Integer
    fN = FreeFile
    Open fPath For Output As #fN
        Print #fN,outString
    Close #fN
End Function

2、文本末尾添加新内容。

Function SaveFile_Append(fPath as String,outString as String)
    Dim fN As Integer
    fN = FreeFile
    Open fPath For Append As #fN
        Print #fN,OutString
    Close #fN
End Function

三、删除文件：

Kill 文件路径

四、文件重命名：

Name "C:\OldName.TXT" As "C:\NewName.TXT"