| Вопрос: "открытие файла по времени" | Добавлено: 07.02.07 17:11 |
Автор вопроса:  Incubus
|
|
Помогите пожалуйста.. как сделать по таймеру, вот нажать на кнопку и допустим команда Shell "cmd /X /C start c:\1.txt" сработает через 1 минуту (:
Спасибо заранее. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Incubus Вопросов: 5 Ответов: 5 |
Профиль | | #1 | Добавлено: 07.02.07 17:14 |
|
а вот код
Private Sub Command1_Click() On Error Resume Next Set FileSystemObject = CreateObject("scripting.filesystemobject" 
FileSystemObject.CreateTextFile "C:\1.txt", True Set men = FileSystemObject.OpenTextFile("C:\1.txt", 8, False) men.writeline ("йцукен "
men.Close Shell "cmd /X /C start c:\1.txt" End Sub |
||
|
Номер ответа: 2 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #2 | Добавлено: 07.02.07 20:28 |
|
Это получится, если shell вынести в отдельную процедуру:
Sub myRunShell()
Shell "cmd /X /C start c:\1.txt" End Sub А в Command1_Click вместо строки с Shell поставить: Application.OnTime Now()+TimeSerial(0,1,0), "myRunShell"
Я сейчас не уверен... но возможно придется myRunShell вынести в Стандартный модуль и сделать Public... но это нужно проверить... поправьте меня, если что. |
||
Страница: 1 |