Jeremy WH Ang 2.May.12 10:09 PM a Web browser Domino DesignerAll ReleasesAll Platforms
What is wrong with my code? I get permission denied when I run it. Helpp....I just want to rename the attachement after extracting it..
'Dim fileNum As Integer
'fileNum%=FreeFile()
Set db=session.Currentdatabase
Set view=db.GetView("Test")
Set doc=view.GetFirstDocument
'Nothing to process
If (doc Is Nothing) Then
Exit sub
End If
Set rtitem = doc.GetFirstItem("Body")
jtext="."
ForAll i In doc.items
If i.type = ATTACHMENT Then
Set emb = doc.GetAttachment(i.values(0))
result=StrRight(i.values(0),jtext)
' If result="txt" then
Call emb.ExtractFile("\\fileserver\\Shared\\Information Technology\\ISERIES\\APPLICATIONS\\SCAN\\SCAN Vins\\MWM Batches\\" + emb.Name)
'Let inFile=FreeFile()
'messagebox i.values(0)
'Call emb.ExtractFile("C:\\temp2\" + emb.Name)
'Open("C:\\Temp\\"+emb.Name)For Input As #1
' jpath="\\fileserver\\Shared\\Information Technology\\ISERIES\\APPLICATIONS\\SCAN\\SCAN Vins\\MWM Batches\\"
jpath="c:\temp2\"
detachfilename=jpath+emb.Name
newfilename=jpath+jfile2
Call emb.ExtractFile(detachfilename)
'SetFileAttr detachfilename, ATTR_NORMAL
Name detachfilename As newfilename
Open("\\fileserver\\Shared\\Information Technology\\ISERIES\\APPLICATIONS\\SCAN\\SCAN Vins\\MWM Batches\\" + emb.Name) For Input As #1
jnow=Format(Today,"ddmmyyyy")
'MessageBox jnow
' Do While Not EOF(1)
Line Input #1,JLine
'MessageBox JLine
' Loop
Close #1
jfile=StrRight(JLine,"BB")
jfile2=Left$(jfile,8)+"_"+jnow+".txt"
MessageBox jfile2
Return to top
issue renaming an extracted embedde... (Jeremy WH Ang 2.May.12)
. . 
Print this page
