Cara Mudah Baca File Dan Menyimpannya Dalam Array

Option Explicit

Private Sub Command1_Click()
    Dim strArray() As String
    Open "c:\autoexec.bat" For Input As #1
        strArray = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
End Sub