?
Solved

Drag and Drop

Posted on 1999-01-13
9
Medium Priority
?
178 Views
Last Modified: 2008-03-06
How do i make so if i drop a file on a program i made, it automaticaly open it? The program open when i drop something on it, but of course, it doesn't open the file. in what way do i recive the "file parameter" so i can do something with it? i though it should be in the OLEDragDrop and such events of the form, but it doesn't seem to work. all i would like to do, would be to capture the path of the file name that have been droped on my program. Thanks...
0
Comment
Question by:OeilNoir
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
9 Comments
 
LVL 10

Expert Comment

by:caraf_g
ID: 1456073
Check the variable Command$ - it might contain the full path of the file you dropped on your program; you might just have to write some straightforward code to extract it from there.


0
 
LVL 1

Author Comment

by:OeilNoir
ID: 1456074
Give more details please, where is the variable command$ is passed? in what events can i get it?
0
 
LVL 4

Accepted Solution

by:
chabaud earned 150 total points
ID: 1456075
Here is an sample to get filenames dropped from the explorer.
Create on form and one module.

In Form1:
---------

Option Explicit

Private Sub Form_Load()
    oldWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndProc)
    DragAcceptFiles Me.hWnd, True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DragAcceptFiles Me.hWnd, False
    SetWindowLong Me.hWnd, GWL_WNDPROC, oldWndProc
End Sub

In Module1:
-----------

Option Explicit

Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Long, ByVal fAccept As Long)
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Long)
Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
Private Declare Function DragQueryPoint Lib "shell32.dll" (ByVal hDrop As Long, lpPoint As POINTAPI) As Long

Public Const GWL_WNDPROC = (-4)
Private Const WM_DROPFILES = &H233

Private Type POINTAPI
        x As Long
        y As Long
End Type

Public oldWndProc As Long

Private Function rtrim0(s As String) As String
    rtrim0 = Left(s, lstrlen(s))
End Function
Public Function wndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    If Msg = WM_DROPFILES Then
        Dim hDrop As Long
        Dim n As Long
        Dim i As Integer
        Dim s As String
       
        hDrop = wParam
       
        n = DragQueryFile(hDrop, &HFFFFFFFF, 0, 0)
        Debug.Print "Drop " & n & " files"
       
        For i = 0 To n - 1
            s = Space(144)
            DragQueryFile hDrop, i, s, Len(s)
            Debug.Print "Drop(" & i & ")=[" & rtrim0(s) & "]"
        Next
       
        DragFinish hDrop
        wndProc = 0
    Else
        wndProc = CallWindowProc(oldWndProc, hWnd, Msg, wParam, lParam)
    End If
   
End Function


0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:OeilNoir
ID: 1456076
isn't there an easier way? i can't belive you need so much code to be able to use the drag and drop. what are the OLEDragDrop events and other of that kind are for?
0
 
LVL 10

Expert Comment

by:caraf_g
ID: 1456077
Hello BlackEye!

Command$ is always available to your VB program, you don't need to pass it.

To check what's in it, just put in a message box somewhere at the start of your program.

MsgBox Command$

Then re-compile, and drop something on your program. If the message box then shows you something that contains, amongst other things, the full path of the file you've just dropped onto your program you'll know that Command$ will work for you.
0
 
LVL 1

Author Comment

by:OeilNoir
ID: 1456078
caraf_g hehe you know some french =)
Well.. the command is almost what i want... it could work great, but it's using 8.3 format for file name... :-/ is there a way to have it to use the long name format? Also.. i guess i would have to "parse" to get the path if someone ever call my program with some other parameters...
0
 
LVL 10

Expert Comment

by:caraf_g
ID: 1456079
Yes,

If it gives you the filename in 8.3 format, don't worry - as long as it gives you the full path. Let's say you extract this full path into a string variable named strFullPath.

If you then use strLongPath = Dir$(strFullPath, vbNormal), strLongPath will contain the long file name.
0
 
LVL 4

Expert Comment

by:chabaud
ID: 1456080
There is a difference between
- drag&drop a file from the windows explorer to an icon program (shortcut or not) on the desktop or in an explorer folder

and

- drag&drop some files from the windows explorer to an OPENED program (that is to a running window)

In the first case, just use the command$ function. To test it within VB see menu Project - Properties - Make and fill the "Command line argument"

In the second case, use my previous code (with API calls)
0
 
LVL 1

Author Comment

by:OeilNoir
ID: 1456081
Sorry i should have said i wanted to drag and drop on an icon.. and not in the program.. well.. i think you 2 have a good answer...  i'll remake a question to give the points to caraf_g too..

0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month10 days, 4 hours left to enroll

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question