| drop folders into textbox and have there path automatically entered (only accepts folders) Private Sub txtSaveto_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) If Dir(Data.Files(1)) = "" Then txtSaveto = Data.Files(1) _ Else: MsgBox "Only Drop Folders in here" End Sub |
drop folders into textbox and have there path auto |
Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design