【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"