API READFILE

[Лёха_Virus]

никак не могу считать содержимое файла в стринговую переменную
делаю так:
dim strdata as String
succ = ReadFile(hfile, ByVal strdata, fsize, read, ov)

возвращает 0 считанных байт.... я точно помню что в стринг можно считать, но не помню как... подскажите плизз.

[skiperski]

Код: Выделить всё

Public Function GetTextFile(ByVal FilePath As String) As String
   
    Dim iFF As Long
   
    iFF = FreeFile()
    On Error GoTo hErr
    Open FilePath For Input As iFF
    GetTextFile = Input(LOF(iFF), iFF)
hErr:
    Close #iFF
   
End Function

[Emzari]

Текстовые фаилы можно читать так

через Refferences подключаеш проекту библиотеку Microsoft scripting runtaim

Код: Выделить всё

Dim NewFSO As New FileSystemObject
Dim File As File
Dim strFile As TextStream
Dim strText As String

Set File = NewFSO.GetFile(Путь  к фаилу)
Set strFile = File.OpenAsTextStream(ForReading)
If File.Size <> 0 Then
        strText = strFile.ReadAll
        strFile.Close
End If