exctract file from domino.doc

[ghostdogjp]

hi , i need a script to save all attachement from a database to disk

the problem is then i working with  domino  5.0 and domino.doc 3.1
i get ther error variant as no onject but i didn't see where is the variant could you help me please

i'm sysadmin and not a developer

Sub Click(Source As Button)
   
   
   Dim w As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase     
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim v2File As NotesItem
   Dim docitself As NotesEmbeddedObject
   
   
   
   
   On Error Goto ProcessError
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = docs.GetFirstDocument()   
'   Set dlgdoc =db.UnprocessedDocuments
   Set v2File=dlgdoc.GetFirstItem(file$)
   filename$=v2File.Values(0)
   Set docitself=dlgdoc.GetAttachment(filename$)
   
   
   FilePath$=("d:\extract\" & filename$)   
   Call docitself.ExtractFile(FilePath$)
   didDetach%=True
   Exit Sub
   
   
ProcessError:
   Messagebox Error$()
   Exit Sub
   
End Sub