Открытие файла программой

Типа...Как сделать так чтобы при открытии файла с помощью проги на ВБ (например при наведении документа на значек программы) прога загружала его(текст там или картинку)...

а если это исполняемый .exe файл?

и куда загружала?

Объясни что тебе нужно, только точнее.

ну типа допустим текстовый редактор. ехе. нужно, чтобы при наведении файла на прогу она(прога) загружала текст в текстовое поле.

Option Explicit
'создай в папке temp на диске C: текстовый файл test.txt
'затем запусти программу, нажми на кнопку -- получишь результат
'(на форме должно быть одно текстовое поле (text1) и одна кнопка(command1))
Dim getValues() As String
Dim counter As Integer
Dim a As String
Private Sub Command1_Click()
Open "C:\temp\test.txt" For Input As #1
Do Until EOF(1)
counter = counter + 1
ReDim Preserve getValues(counter)
Line Input #1, getValues(counter)
Text1.Text = Text1.Text + getValues(counter)
Loop
Close #1
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Получить текст из файла"
counter = 0
End Sub

не, это все проще простого! А как сделать так, чтоб кликнув мышкой по значку файла например там "z.asd" он открывался с помощью моей проги и текст загружался в текстовое поле. вот.

прежде всего тебе надо добавить командную строку в твою программу.
Добавить командную строку в программу
Позвольте вашему приложению запускаться как "programa.exe option1".
VB 5.0/6.0: Из меню VB выберите Project->Project1 Properties, выберите вкладку Make, и введите в Command Line argument текст: option1
Скомпилируйте exe-file, из меню Пуск/Выполнить запустите ваше приложение например так: "programa.exe hello", и вы получите сообщение с теми аргументами, которые вы вводили (в данном случае слово hello)

Private Sub Form_Load()
MsgBox Command
End Sub
После того, как ты создал свою программу, в проводнике кликаешь на твоем файле, тебя Виндоуз спрашивает, с помощью какой программы открывать файл, говоришь: "Такая-то программа вот здесь" и ставишь CheckBox "Всегда открывать..."

пасиб!

хехе, все что мне надо было ето :
private sub form_load()
dim a as string
a = command
end sub
а - путь к открываемому файлу... ну все равно спасиб за помощь!
вот и усе...

ну вот видишь, еслиб грамотно сформулировал вопрос, то получил бы ответ ещё 12-го января, а так пришлось париться самому ...