داله لفتح ملف داخل متغير نصى .

هذه داله تقوم بقراءة ملف من على الهارد ديسيك و تخزنه داخل متغير نصى.

والسؤال : هل يمكنك أن تصمم داله أسرع منها فى التنفيذ ؟؟؟؟

وشكرا للمشاركه

Function Get_File_Contents(File_path As String) As String
Dim fstr As String
Dim str As String, tstr As String
fstr = File_path
On Error GoTo errr
    Open fstr For Input As #1
        Do While Not EOF(1)
            Line Input #1, str
            tstr = tstr & str & vbCrLf
        Loop
    Close
    Get_File_For_Search = tstr
Exit Function
errr:
Close
End Function