dim strFilename, objFilename, objFile, strFile
me.Field("FileNameOnly").Value = me.Document.Pages.Item(0).ImageSource
strFilename = me.Field("FileNameOnly").Value
objFilename = split(strFilename,"\")
For each objFile in objFilename
strFile = objFile
next
me.Field("FileNameOnly").Value = strFile
You can download the sample project here: http://www.abbyydownloads.com/filename.zip
To open the project, you must be using at least version 10.0.4.1486 of FlexiCapture 10