Public Function exportRes(ByVal ResID As Long, ByVal ResType As String) As _
  Boolean
    Dim ff As Long
    Dim Data() As Byte
 
    On Error GoTo Fehler
 
    Data = LoadResData(ResID, ResType)
    ff = FreeFile
    Open mfolTemp.Path + "\FileMove.avi" For Binary Access Write As #ff
    Put #ff, , Data
    Close ff
 
    exportRes = True
    Exit Function
Fehler:
End Function

mblnResOK = exportRes(101, "CUSTOM")

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1