#8040
ctaleck
Participant

    The OpenFileDlg is the method I am currently using. The drag and drop feature was a user request which I thought would be useful.

    I have made a little progress on a solution using the DynamicWrapper ActiveX control that allows me to call Windows API.

      Dim UserWrap
      Set UserWrap = CreateObject("DynamicWrapper")
    
      UserWrap.Register "SHELL32.DLL", "DragAcceptFiles", "i=Hl","f=s"
      UserWrap.DragAcceptFiles Dlg.Handle, True
    

    This successfully shows a drag cursor on my Formativ form suggesting it can accept files dragged to it. However, I am still working on the code which allows me to capture the WM_DROPFILES messages from Windows to decode the actual file path using another Windows API: DragQueryFile.

    I see that most controls (including the form) have a method called WindowProc, but I am unsure how to override it in VBScript. Perhaps it is not even exposed in Formativ? Is there any way I can tap into the WindowProc so that I can receive those messages?

    I am using the following article as guide to my efforts: Drag and Drop from Windows Explorer

    [This message was edited by ctaleck on September 11, 2008 at 06:25 AM.]