Pickup File From Client using Lotusscript?

HCL Domino Domino Forum
1

Is it possible to Pickup File From Client Computer using Lotusscript ?

Hi Friends, May be i am asking a stupid question but i have stuck so badley in a project which making me to ask such question

well friends my problem is i have webcam in lotus Notes web application which capture’s pictures on click of a button and save that picture on the client(means Local PC) in a specific folder

now i want this picture on the server so that i can save it in .nsf (as per project requirment)

(WebCam functionality has been coded using Javascript and not possible to convert into LotusSctip)

So guys give me any suggestion possible i just want that file(Image file .jpg) to be save in .nsf

Waiting for replies ,

Regards

Sunit

2

Subject: Just watch for ECLs…

Here’s a very simple UI-triggered snippet of LS that I use to “Upload Media” into my Domino CMS:

Sub Initialize

Dim s As New NotesSession

Dim db As NotesDatabase

Dim w As New NotesUIWorkspace

Dim doc As NotesDocument

Dim rtitem As NotesRichTextItem

Dim object As NotesEmbeddedObject



Set db = s.CurrentDatabase

files = w.OpenFileDialog(True, db.Title)



Forall f In files

	Set doc = db.CreateDocument

	Call doc.ReplaceItemValue("form", "media")

	Call doc.ReplaceItemValue("status", "Published")

	Set rtitem = New NotesRichTextItem( doc, "Body" )

	Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", f)

	Call doc.ReplaceItemValue("permalink", Strrightback(f, "\"))

	Call doc.ReplaceItemValue("title", Strrightback(f, "\"))

	Call doc.Save(True, False, True)

End Forall

End Sub

HTH,

-Chris

3

Subject: i thnk left to mention

Sorry budy i forgot to mentioned that i dnt need any file upload control or dialog to upload the file instead i m picking file automaticaly using following code

strFileName=“C:\Empower.txt”

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

mobj = objFSO.FileExists(strFileName)

But thnks for ur replay , I trying wid ur code

Regards

Sunit