Drag and drop dir / folder only onto input control in GUI

[Mungo]

I am trying restrict the drag and drop action to folder paths only (rather than path and file names).

I am using the extended style $WS_EX_ACCEPTFILES during gui creation and GUICtrlSetState(-1, $GUI_DROPACCEPTED) on the input control (sample code below).

Thanks for any hints.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
f_gui_drop()
Func f_gui_drop()
  Local $msg
  GUICreate("Test drop DIR only", 300, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
  GUICtrlCreateLabel("Drop a dir only ... " , 10, 10, 200, 20)
  Local $dir_dropped = GUICtrlCreateInput("", 10, 30, 280, 20)
  GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  GUISetState(@SW_SHOW)
  While 1
       $msg = GUIGetMsg()
       If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  WEnd
  GUIDelete()
EndFunc

Edited September 18, 2012 by Mungo

[UEZ]

Try this:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
f_gui_drop()
Func f_gui_drop()
  Local $msg
  GUICreate("Test drop DIR only", 300, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
  GUICtrlCreateLabel("Drop a dir only ... " , 10, 10, 200, 20)
  Local $dir_dropped = GUICtrlCreateInput("", 10, 30, 280, 20)
  GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  GUISetState(@SW_SHOW)

  While 1
      Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_DROPPED
            GUICtrlSetData($dir_dropped, StringRegExpReplace(GUICtrlRead($dir_dropped), "(.*).*", "$1"))
    EndSwitch

  WEnd
  GUIDelete()
EndFunc

Br,

UEZ

[Mungo]

Thanks UEZ!

That works fine ! It strips off the filename nicely if a file is being dropped. However, the problem is if the user actually does what he is supposed to do (in my program) and drops a DIR onto the input control, it strips off one dir level (to the next ""), which shouldn't be.

I found a way by using FileGetAttrib in a condition to check for the file attribute to be "D" for DIRECTORY within the dropped string and combined it with your StringRegExpReplace line. That seems to do the trick :-)

Cheers

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
f_gui_drop()
Func f_gui_drop()
  GUICreate("Test drop DIR only", 400, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
  GUICtrlCreateLabel("Drop a dir only ... " , 10, 10, 200, 20)
  Local $dir_dropped = GUICtrlCreateInput("", 10, 30, 380, 20)
  GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  Local $clear_button = GUICtrlCreateButton("Clear", 160, 200, 80, 24)
  GUISetState(@SW_SHOW)
  While 1
    Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE
        ExitLoop
      Case $GUI_EVENT_DROPPED
        Local $dir_string = GUICtrlRead($dir_dropped)
        Local $attribute = FileGetAttrib($dir_string)    ; Retrieve the file/dir attributes
        If StringInStr($attribute, "D") Then         ; If the attribute string contains the letter 'D' then it is a DIR.
          MsgBox(4096, "", "It is a DIR - OK !")
        Else
          GUICtrlSetData($dir_dropped, StringRegExpReplace(GUICtrlRead($dir_dropped), "(.*).*", "$1")) ; Strip filename from path
          MsgBox(4096, "", "It is a FILE - Filename stripped from PATH!")
        EndIf
      Case $clear_button
        GUICtrlSetData($dir_dropped, "")
    EndSwitch
  WEnd
  GUIDelete()
  EndFunc

Edited September 20, 2012 by Mungo

[cyberbit]

...
Local $attribute = FileGetAttrib($dir_string) ; Retrieve the file/dir attributes
If StringInStr($attribute, "D") Then ; If the attribute string contains the letter 'D' then it is a DIR.
MsgBox(4096, "", "It is a DIR - OK !")
...

Why not use _WinAPI_PathIsDirectory from WinAPIEx? It's included in the beta.

Regards,

Cyberbit

[guinness]

Because not everyone is using WinAPIEx and/or has the beta version of AutoIt installed. Nothing wrong with using native functions.

[GHOSTSKIKDA]

try this :

#include 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

f_gui_drop()

Func f_gui_drop()
Local $msg
GUICreate("Test drop DIR only", 300, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("Drop a dir only ... " , 10, 10, 200, 20)
Local $dir_dropped = GUICtrlCreateInput("", 10, 30, 280, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_EVENT_DROPPED
Local $attribute = FileGetAttrib(GUICtrlRead($dir_dropped)) ; Retrieve the file/dir attributes
If StringInStr($attribute, "D") Then ; If the attribute string contains the letter 'D' then it is a DIR.
Else
GUICtrlSetData($dir_dropped,"")
EndIf
EndSwitch
WEnd
GUIDelete()
EndFunc

[MilesAhead]

Case $GUI_EVENT_DROPPED

 

 

I'm using this technique.  It works fine if the input is empty.  But if I load the input from an .ini file, then later if a file path is dropped, the old data is not erased.  I end up with, as example,  C:MyFolderMyFile.txtC:OtherFolderotherfile.txt in the input.

Since I have 2 inputs I don't know where the drop is going to try to erase it with SetData("")

Edit: and just having the inputs start blank is no help as the user will want to know what files were saved to the ini file.

I'm using AutoIt 3.3.8.1

Edit:  @GUI_DropId did the trick

Edited January 16, 2014 by MilesAhead