VB6寻求文件操作源码

'复制下面代码，运行即可！
Option Explicit
Dim fs

'读文件至变量
Function GetFile(FileName As String) As String
Dim i As Integer, s As String, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB
Close #i
s = StrConv(BB, vbUnicode)
GetFile = s
End Function

'写入文件
Function PutFile(FileName As String, txt As String)
If txt = "" Then Exit Function
If Dir(FileName) <> "" Then Kill FileName
Dim i As Integer, s As String, BB() As Byte
BB = StrConv(txt, vbFromUnicode)
i = FreeFile
Open FileName For Binary As #i
Put #i, , BB
Close #i
End Function

Function digui(path As String, Txt1 As String, Txt2 As String)
Dim folder, subfolders, Files, i, j, s As String
Set folder = fs.getfolder(path)
Set subfolders = fol