Visual Basic FAQ

Как создать файл и открыть его блокнотом?

'Создать текстовый файл и занести информацию
'И сразу открыть файл блокнотом
Option Explicit

Dim FileNum As Byte

Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" _
            (ByVal hwnd As Long, _
            ByVal lpOperation As String, _
            ByVal lpFile As String, _
            ByVal lpParameters As String, _
            ByVal lpDirectory As String, _
            ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
FileNum = FreeFile
Open "D:\Sample.txt" For Append As FileNum
Print #FileNum, "Первая строка текста"
Print #FileNum, "Вторая строка текста"
Close FileNum

ShellExecute 0, vbNullString, "D:\Sample.txt", vbNullString, _
                                vbNullString, SW_SHOWNORMAL
End
End Sub

Запись опубликована on 23.02.2009 at 9:00 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.