Plusieurs fichiers de même nom dans un document

[Maxime Choucroun]

Je pose la question meme si je ne crois pas à une réponse...

J'enregistre dans un document plusieurs fichiers de meme nom, mais de répertoires differents.
Lotus change le nom des fichiers.
Pour compliquer les choses, il y a aussi des fichiers de noms differents.

Question: Il y a-t-il un moyen de retrouver les nom d'origine des fichiers ?

Merci d'avance....

[mike76]

salut,

regarde ce post si ça peut t'aider.
mon but à l'époque était de récupérer le chemin d'origine d'une pièce jointe :
http://forum.dominoarea.org/chemin-dorigine-dune-piece-jointe-t15733,search_id,1913067680.html#70177

[Maxime Choucroun]

Désolé, je n'ai pas été clair. Un utilisateur fait un drag & drop (dans un doc) de fichiers de meme nom mais de repertoires differents.
Je dois récupérer les fichiers (par du code) avec les bons noms de fichiers. Les noms de fichiers sont modifiés (exemple: ca.xls devient alors ATT34ED)

Le probleme a été déposé il y a 5 ans, mais pas résolu...
http://www-10.lotus.com/ldd/nd6forum.ns ... enDocument

Merci cependant de ta réponse

[Maxime Choucroun]

J'ai trouvé cette reponse qui est une fusion de codes de ma part. Je ne sais plus ou j'ai trouvé cela, mais je n'en suis pas l'auteur...

En tout cas, J'espère que cela servira à d'autres...

Sub Click(Source As Button)


Dim uiworkspace As New NotesUIWorkspace
Dim uidoc As NotesuiDocument
Dim adoc As NotesDocument


Set uidoc = uiworkspace.CurrentDocument
Set adoc = uidoc.Document



Set rtitem = adoc.GetFirstItem("Body")
If rtitem Is Nothing Then Error 1000, "Unable to get a handle to Body item."

Set rtnav = rtitem.CreateNavigator
oflg = rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
Do While oflg
If oflg Then Set rtobj = rtnav.GetElement
If rtobj.Type = EMBED_ATTACHMENT Then
aname = rtobj.Source
REM detachFile(doc As NotesDocument, rtname As String, fname As String, fpath As String) As Boolean
' retflg = detachfile(adoc, "Body", aname, apathcur)

REM we're removing the attachment and replacing with a link
msgbox( rtobj.Source )
End If
oflg = rtnav.FindNextElement(RTELEM_TYPE_FILEATTACHMENT)
Loop
End Sub

[Michael DELIQUE]

salut

un petit tips ?

[Maxime Choucroun]

Oui, on peut considerer que cela en est un.

[Michael DELIQUE]

ça voulais dire :

peut-tu lcréer un tips avec ton code dans la section truc et astuces qui va bien ?

[Maxime Choucroun]

ok.

[Maxime Choucroun]

J'ai un probleme. Il faut un acces special pour mettre quelques choses dans les trucs et astuces.

Donc voici le texte à insérer..

Sub Click(Source As Button)

'Maxime Choucroun 23/06/2010
'Le but de ce bouton (à mettre dans un form)
'est de récuperer tout les noms d'ORIGINE des fichiers insérés
'dans le document.

'Attention: Si 2 fichiers sont insérés dans le document avec le
'meme nom (mais de repertoires differents),
'alors l'affichage donnera ce nom.
'Alors que Lotus Notes renomme systematiquement le nom du second fichier.

'Remarque: Ce code est facilement adaptable en java.
' Mais ce n'est pas le cas en API C.


Dim uiworkspace As New NotesUIWorkspace
Dim uidoc As NotesuiDocument
Dim adoc As NotesDocument

Set uidoc = uiworkspace.CurrentDocument
Set adoc = uidoc.Document

Set rtitem = adoc.GetFirstItem("Body")
If rtitem Is Nothing Then
Msgbox("Erreur: Pas de champ Body")
Exit Sub
End If

Set rtnav = rtitem.CreateNavigator
oflg = rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
If (oflg = False) Then
Msgbox("Pas de fichier(s) attaché(s)")
Exit Sub

End If

Do While oflg
If oflg Then Set rtobj = rtnav.GetElement
If rtobj.Type = EMBED_ATTACHMENT Then
aname = rtobj.Source
Msgbox(aname)
End If
oflg = rtnav.FindNextElement(RTELEM_TYPE_FILEATTACHMENT)
Loop
End Sub

[Michael DELIQUE]

tu as maintenant l'accès

[Maxime Choucroun]

Voila c'est fait.

http://forum.dominoarea.org/insertion-d ... 25552.html

Je suis ravi d'avoir rajouté ma petite pierre...