hier der part zum droppen...
also ich packe die dateien und entpacke sie im angegebenen ordner !
Code:
Private Function Droppen(sFileP As String, DropPfad As String)
On Error Resume Next
Dim i As Long
Dim UBo As Long
Dim Packed As Gepackt
Dim FF As Long
FF = FreeFile
Open sFileP For Binary As #FF
Get #FF, LOF(FF) - 2, UBo
Close
ReDim Packed.Files(UBo)
Open sFileP For Binary As #FF
Get #FF, , Packed
Close
For i = 0 To UBo
FF = FreeFile
Open DropPfad & GetFileTitle(Packed.Files(i).FileName) _
For Binary As #FF
Put #FF, , Packed.Files(i).Contents
Close #FF
Next i
End Function
danke schonmal