Private Sub Form_Load()
Dim strPath As String, strData As String
strPath = Command$
MsgBox strPath
Open strPath For Input As #1
Line Input #1, strData
Close #1
MsgBox "Вот и первая строчка из файла: " & vbCrLf & strData
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 18