Obtener Dir de fichero seleccionado

[LeandroA]

hola utiliza la funcion command$ esta funcion te devuelve el comando

un ejemplo as un nuevo proyecto y pon

Private Sub Form_Load()
MsgBox Command$
End Sub

luego arrastra un archivo sobre el ejecutable y este te devuelve la ruta y el nombre del archivo

luego si quieres prueva tambien guardar este ejecutable en la carpeta

C:\Documents and Settings\Leandro Ascierto\SendTo

obiamente con tu nombre de usuario, pero esta carpeta es oculta asi que pon en el explorador herramientas/opciones de carpeta. y en la solapa ver
mostrar todos los archivos y carpetas ocultos y luego la buscas

y luego cuando selecionas un archivo le click con el boton derecho y en el menu tienes "enviar a" y te aparece tu aplicacion junto con discoA carpetas en zip etc

otra opcion es crea un proyecto y escrive lo siguiente lo generas y lo ejecutas una ves y luego hace lo que dije arriva, a un archivo lo selecioneas y le das "enviar a"

Private Sub Form_Load()
Dim WScript As Object
Dim Ruta As String
Set WScript = CreateObject("WScript.Shell")
Ruta = Dir(WScript.SpecialFolders("SendTo") & "\" & App.EXEName & ".exe")
If Ruta = "" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", WScript.SpecialFolders("SendTo") & "\" & App.EXEName & ".exe"
MsgBox "La aplicacion se a copiado en la Carpeta: " & vbCrLf & WScript.SpecialFolders("SendTo")
Else
MsgBox Command$
End If
Set WScript = Nothing
End
End Sub