Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: "открытие файла по времени" Добавлено: 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-сайт: www.genyaa.nm.ru
 Профиль | | #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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам