Открытие файлов в Vb
Всем привет!
Я хочу написать на VB autorun.exe для CD. Подскажите пожалуйста, как написать то, чтобы autorun открывалл указанный файл в программе по умолчанию. т.е. есть у меня command button, при клике по ней, к примеру, в Windows Media Player открывается видео файл.
Всем зарание спасибо.
Я хочу написать на VB autorun.exe для CD. Подскажите пожалуйста, как написать то, чтобы autorun открывалл указанный файл в программе по умолчанию. т.е. есть у меня command button, при клике по ней, к примеру, в Windows Media Player открывается видео файл.
Всем зарание спасибо.
Цитата:
Originally posted by Lei fang
Всем привет!
Я хочу написать на VB autorun.exe для CD. Подскажите пожалуйста, как написать то, чтобы autorun открывалл указанный файл в программе по умолчанию. т.е. есть у меня command button, при клике по ней, к примеру, в Windows Media Player открывается видео файл.
Всем зарание спасибо.
Всем привет!
Я хочу написать на VB autorun.exe для CD. Подскажите пожалуйста, как написать то, чтобы autorun открывалл указанный файл в программе по умолчанию. т.е. есть у меня command button, при клике по ней, к примеру, в Windows Media Player открывается видео файл.
Всем зарание спасибо.
если ты хочешь что б при вставке CD в CDROM
автоматически открывался какой нибудь исполнимый файл то тебе нужно написать не авторан а autorun.inf
открой текстовой файл
введи данный код в файл
[autorun]
OPEN=install.exe
где install.exe твой файл программы который дожен
быть на диске если он в какой то папке то пиши так
[autorun]
OPEN=Папка\install.exe
сохрани файл и измени расширение из .txt на .inf
и запиши на диск
А если хочешь програмно открыть исполнимый файл в VB есть команда <Shell "твой путь к файлу">
Спасибо, tiko!
Что должно быть в *.inf файле я знаю, проблема в том, что ч не знаю как из программы открыть мультимедиа файл.
Пробовал я Shell, но там ошибка получается, может я не правильно ее использую?
Private Sub Command1_Click()
Shell "с:\Final Fantasy VII Advent Children.avi"
End Sub
Может Вы знаете, в чем дело?
Что должно быть в *.inf файле я знаю, проблема в том, что ч не знаю как из программы открыть мультимедиа файл.
Пробовал я Shell, но там ошибка получается, может я не правильно ее использую?
Private Sub Command1_Click()
Shell "с:\Final Fantasy VII Advent Children.avi"
End Sub
Может Вы знаете, в чем дело?
Почему не работает теперь понятно, так как команда Shell открывает только *.exe файлы. Но как открыть мультимедиа файлы?
Что б открыть любой файл и даже .avi
тебе надо
Войти в меню Project>References
Выбрать в списке
"Microsoft Shell Controls And Automation"
Потом введи этот код в событие кнопки
'==========================
Dim s As New Shell
s.Open "Твой путь"
'===========================
и наслождайся фильмом //////////))))))))))))))))))))))
с уважением tiko
напиши получилось или нет
PS
если будешь запускать свою программу на другом компе не забуть скопировать SHELL32.dll файл в
системную папку system32
тебе надо
Войти в меню Project>References
Выбрать в списке
"Microsoft Shell Controls And Automation"
Потом введи этот код в событие кнопки
'==========================
Dim s As New Shell
s.Open "Твой путь"
'===========================
и наслождайся фильмом //////////))))))))))))))))))))))
с уважением tiko
напиши получилось или нет
PS
если будешь запускать свою программу на другом компе не забуть скопировать SHELL32.dll файл в
системную папку system32
Еще раз, спасибо,tiko!
-->и наслаждайся фильмом
Уже насладился полмесяца назад, когда скачал его, теперь другу отсылаю, заодно решил autorun сделать.
-->напиши получилось или нет
Все замечательно работает!
А ведь неплохо смотрится...
-->если будешь запускать свою программу на другом компе не забуть скопировать SHELL32.dll файл в
системную папку system32
Ok
Спасибо за все, tiko!
-->и наслаждайся фильмом
Уже насладился полмесяца назад, когда скачал его, теперь другу отсылаю, заодно решил autorun сделать.
-->напиши получилось или нет
Все замечательно работает!
А ведь неплохо смотрится...
-->если будешь запускать свою программу на другом компе не забуть скопировать SHELL32.dll файл в
системную папку system32
Ok
Спасибо за все, tiko!
Ну, вообще, shell передает команду в Командную строку cmd.
Я иногда использую такой метод:
Dim FileName As String = "C:\Кино.avi"
shell ("explorer " & FileName)
Я иногда использую такой метод:
Dim FileName As String = "C:\Кино.avi"
shell ("explorer " & FileName)
Добрый день! подскажите, как запустить скрипт ( Script.js ) в Visual Studio при нажатии command button.