Discussion :

[djelloharmel]

Bonjour Mesdames et Messieurs

Je développe une application en VB.NET et on m'a demandé de sauvegarder mes fichiers word sur sharepoint online.
Ce que j'ai réussi aisément.
La problématique, c'est la lecture et l'écriture dans les fichiers.
Je réussis à ouvrir le document comme si j'étais sur ma machine avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim PageSite As String = "https://MonSharepoint/sites/DossierDeTravail/DocumentsPartagés/MonFichier.docx"
                Dim process As Process = New Process()
                Process.Start(PageSite)

Il s'ouvre souvent en lecture seule ou il me demande d'entrer mes accès. Ce que je veux éviter aux utilisateurs.

Le lien quand je monte sur sharepoint et j'y ouvre mon fichier est

MonSharepoint/:w:/r/sites/DossierDeTravail/_layouts/15/Doc.aspx?sourcedoc=%7B3649397A-6933-4C05-A17D-5CAD4BF531D5%7D&file=Monfichier.docx&action=default&mobileredirect=true

la plupart de mes fichiers se présente comme tel. Je voudrais récupérer par du code VB l'ID GUID qui se trouve dans l'expression

%7B3649397A-6933-4C05-A17D-5CAD4BF531D5%

Merci à l'avance

[djelloharmel]

Bonsoir.
J'ai trouvé. une petite fonction qui vous permet de récupérer le ID GUID

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Imports SP=Microsoft.Sharepoint.Client
 
        Public Function IdGuid(ByVal bTiltle As String, ByVal bCheminFichier As String) As Guid
        Dim List As SP.List = ClientContext.Web.Lists.GetByTitle(bTiltle)
        Dim file As SP.File = ClientContext.Web.GetFileByServerRelativeUrl(bCheminFichier)
 
        Dim item As SP.ListItem = file.ListItemAllFields
        ClientContext.Load(item)
        ClientContext.ExecuteQuery()
 
        Dim idAsString As String = item("UniqueId").ToString()
 
        Dim id As Guid = New Guid(idAsString)
        Return id
    End Function

Ca marche proprement