Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.143.212.121] |
|
Сообщ.
#1
,
|
|
|
Вопрос:Я запускаю какое-либо приложение оно создает текстовый файл и тут же запускает его!!!!!Напишите плиз как сделать!!!
|
Сообщ.
#2
,
|
|
|
А что в текстовом файле должно быть? И где создавать файл?
|
Сообщ.
#3
,
|
|
|
Фиг его знает че там должно быть не в этом суть ,а где создавать c:\Windows\*.txt
|
Сообщ.
#4
,
|
|
|
'Программа создает в папке C:\temp файл test.txt,
'и запускает его. Private Sub Form_Load() Open "C:\temp\test.txt" For Output As #1 Print #1, "Хай! Этот файл только что сгенерировала твоя программа " Print #1, "Вторая строка" Print #1, "(c) CR 2002 " Close #1 Open "C:\temp\batrun.bat" For Output As #2 Print #2, "@echo off" Print #2, "start C:\temp\test.txt" Print #2, "del C:\temp\batrun.bat" Close #2 Shell ("C:\temp\batrun.bat"), vbHide End End Sub |
Сообщ.
#5
,
|
|
|
2 cr: Ага, и ещё батник будет на диске валяться...
Не проще ли сделать так? : .......... .......... Close #1 Shell "start C:\temp\test.txt" |
Сообщ.
#6
,
|
|
|
У меня под NT Shell "start C:\temp\test.txt" почему-то не работает, пишет файл не найден.
|
Сообщ.
#7
,
|
|
|
Не удивительно!
Здесь приходит на помощь знания АПИ ф-ций виндов. Лень объяснять, просто засунь этот кою в модуль. Процедура ShellFile запустит любой файл с зарегистрированым расширением (в том числе и текстовый)! Public Declare Function ShellExecute Lib "shell32.dll" 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 Public Sub ShellFile(ByVal Path as String) Call ShellExecute(Me.hwnd, "open", Path, vbNullString, vbNullString, 1) End Sub |