Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как реализовать получение пути файла кликнув мышью 
V
    Опции темы
anvarfromkz
Дата 14.10.2010, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет



Уважаемые участники подскажите как организовать :

Получение пути файла (например MP3 файл) кликнув на него правой кнопкой мыши в Windows Explorer, появляется контекстное меню, выбираю в нем "Отправить на ФТП" (этот пункт сделан в реестре)

или

Правой кнопкой мыши на файле (например MP3 файл) "Отправить" Дальше в SendTo помещена программа, т.е. DragandDrop получается, пробовал так, но для этого надо чтобы программа у меня была запущена а мне этого не надо, т.е. когда программа запускается путь файла чтобы был.

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)
f = Data.Files.Item(1)
End Sub



 
PM MAIL   Вверх
Akina
Дата 14.10.2010, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Как я понял, программа помещена в %USER_PROFILE%\SendTo.
В таком случае полное имя файла, после правого клика на который была выбрана отправка в эту программу, берётся из Command$.
Не понимаю, при чём тут OLEDragDrop. Для отправки на ФТП форма приложению вообще не нужна, Sub Main прекрасно справится.
Само собой по завершении передачи программа должна завершать работу.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
anvarfromkz
Дата 14.10.2010, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет



Цитата(Akina @ 14.10.2010,  10:50)
Как я понял, программа помещена в %USER_PROFILE%\SendTo.
В таком случае полное имя файла, после правого клика на который была выбрана отправка в эту программу, берётся из Command$.
Не понимаю, при чём тут OLEDragDrop. Для отправки на ФТП форма приложению вообще не нужна, Sub Main прекрасно справится.
Само собой по завершении передачи программа должна завершать работу.

Объясните пожалуйста как это реализовать. ФТП не нужно, имею ввиду Command$ , как передать путь к файлу

Это сообщение отредактировал(а) anvarfromkz - 14.10.2010, 11:15
PM MAIL   Вверх
Akina
Дата 14.10.2010, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



В бесформенном приложении
Код

Sub Main()
MsgBox Command$
End Sub

В форменном приложении
Код

Private Sub Form_Load()
MsgBox Command$
Unload Me
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
anvarfromkz
Дата 14.10.2010, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет



Цитата(Akina @ 14.10.2010,  11:10)
В бесформенном приложении
Код

Sub Main()
MsgBox Command$
End Sub

В форменном приложении
Код

Private Sub Form_Load()
MsgBox Command$
Unload Me
End Sub

спасибо большое!!!!!!!!!!!!!!!!  smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0429 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.