:yellow_biggrin.gif:
Ok mi sono perso il codice giusto tra le varie prove...
chiaramente salvo il doc ....
comunque path nn prende nemmeno una stringa qualsiasi che gli assegno....
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim docContesto As NotesDocument
Set docContesto = session.DocumentContext
filenames = ws.OpenFileDialog( _
True, "Scegli il file da importare",, "c:\")
If Not(Isempty(filenames)) Then
Forall filename In filenames
docContesto.path=filename
End Forall
Call docContesto.Save(True,True)
End If
End Sub
Il forall fa un giro solo xché seleziono un unico file.....
|