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

一、读取文本文件：

1、一行一行读取

1.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

1.2 参数传递结果（sourceString 存放读取到的值）：

Sub 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 Sub

2、一次读入所有文字。

2.1 返回值传递结果

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

2.2 参数传递结果（sourceString 存放读取到的值）：

Sub 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 Sub

二、保存文本文件：

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"