[AccessD] Adding Attachments

> I found the below code (Save_DriveJ) on Microsoft. It will open the Save
> dialog, Except it does not actually save the same file. When I click on the
> name of the file that is placed in the field 'attachments' it is not the
> same file, it has the correct title, but it overwrites the text in the file
> to show only the words, Attached Document.
>  

That's what you told it to do <g>


Try this instead

(Store the directory where you want to save the attachments in strNewPath)

strFilePathname = CmnDlg.Filename
strFilename = Mid$(InstrRev(strFilePathname,"\"))
strNewFilename = StrNewPath & strFilename

Filecopy strFilePathname strNewFilename


-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System Support.