Ovako mozes da dobijes imena fajlova koji su "pusteni" na formu
Code:
Private Sub Form_Load()
Me.OLEDropMode = 1 ' ukljucujemo OLEDragDrop , ovo moze da se podesi i u properties prozoru forme
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'Ovde je fajl (ili fajlovi) pusten na formu
'Da bi izbegli gresku u LoadPicture ako nije pustena slika ovde cemo da stavimo
On Error Resume Next
If Data.GetFormat(vbCFFiles) Then ' ako su fajlovi
Dim File As Variant
For Each File In Data.Files ' trazimo ime fajla
Debug.Print File ' ispis
Me.Picture = LoadPicture(File) ' ucitavamo sliku ' ili idemo na neku svoju funkciju ... ime fajla je u File
Next File
End If
End Sub
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
'Proveravamo format podataka dok traje prevlacenje preko forme i podesavamo kursor, ova subrutina nije neophodna ...
If Data.GetFormat(vbCFFiles) Then Effect = vbDropEffectCopy And Effect: Exit Sub
Effect = vbDropEffectNone
End Sub