把文件复制到变量

Question

如何把文件复制到变量中,变量类型为String

Answer 1

应该不能放在String中,除非文件的内容是字符行,一般使用Byte数据来完成

Answer 2

这个要看楼主想读取的文件格式了。只有文本格式的才可以放进STRING变量中。

Answer 3

Private Sub Command1_Click()
    Text1.Text = ReadFile("C:\NETLOG.TXT")
End SubFunction ReadFile(TXTFile As String) As String
    Dim fn As Integer
    fn = FreeFile
    Open TXTFile For Binary Access Read As #fn
        ReadFile = Space(FileLen(TXTFile))
        Get #fn, , ReadFile
    Close #fn
End Function

Answer 4

'引用——Microsoft Scripting RuntimeOption ExplicitFunction FsoRead(ByVal PFile As String) As String
    On Error Resume Next
    Dim u As Object
    Dim X As TextStream
    Set u = CreateObject("scripting.filesystemobject")
    Set X = u.OpenTextFile(PFile, ForReading, True)
    FsoRead = X.ReadAll
    Exit Function
End FunctionFunction FsoWrite(ByVal PFile As String, ByVal OutFile As String) As Boolean
    On Error GoTo Er
    Dim Ob As Object
    Dim X As TextStream
    Set Ob = CreateObject("scripting.filesystemobject")
    Set X = Ob.OpenTextFile(PFile, ForWriting, True)
    X.Write OutFile
    Exit Function
Er:
    Dim y As FileSystemObject
    Set y = CreateObject("scripting.filesystemobject")
    Set Ob = y.CreateTextFile(PFile, True)
    X.Write OutFile
End Function