Est-il possible de vérifier, via VBA si le fichier existe sur un site sharepoint?

Je suis en train d'écrire un fichier Excel (2010) macro qui à un certain moment de confirmer l'existence d'un certain fichier (doc/pdf) sur le site sharepoint.
Le fichier est accessible via Internet Explorer (tous les droits sont accordés à l'utilisateur).
J'ai un lien direct vers ce fichier.
Je n'ai pas besoin de l'ouvrir, il suffit de vérifier si il y est.

Si c'était un fichier local, j'utiliserais Dir() pour vérifier si le fichier existe.
Toutefois, cela ne fonctionne pas avec les Uri.

J'ai essayé une méthode basée sur la via objHttp mais la seule réponse, j'obtiens est un wepage déclarant que "je ne suis pas autorisé à afficher cette page" [tag].

Est-ce faisable?

Est le lien que vous avez directement accessibles? c'est à dire sans ouverture de session/enregistré d'ouverture de session dans le navigateur?

OriginalL'auteur Kuba | 2012-11-21

  1. 2

    Donner un coup de cette:

    Function checkFile(URLStr As String) As Boolean
    Dim oHttpRequest As Object
    Set oHttpRequest = New MSXML2.XMLHTTP60
    With oHttpRequest
        .Open "GET", URLStr, False, [Username], [Password]
        .setRequestHeader "Cache-Control", "no-cache"
        .setRequestHeader "Pragma", "no-cache"
        .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
        .send
    End With
    If oHttpRequest.Status = 200 Then
        checkFile = True
    Else
        checkFile = False
    End If
End Function

    URLStr doit être quelque chose comme "http://sharepoint/site/user.xlsx". Entrez votre nom d'utilisateur/Mot de passe dans la .Open ligne pour les passer sur le site, et cela devrait fonctionner pour tout URI (j'ai été le tester contre .xlsx fichiers par exemple). Je tiens à signaler que sur mes sites SharePoint internes, je n'ai pas besoin de passer de l'ONU/PW pour exécuter cette fonction, donc si qui finit par être le cas pour vous, il suffit de retirer l'ensemble de ces paramètres à partir de la .Open appel. Aussi, tous les en-tête de trucs n'est probablement pas nécessaire, mais j'ai toujours dans mes demandes, alors j'ai abandonné.

    Merci beaucoup. Il semble qu'il fonctionne assez bien!

    OriginalL'auteur Kevin Pope

  2. -1

    Je Ne sais que cela peut vous aider ou pas? Mais je partage mes pensées pour vous.
    Vous pouvez utiliser http web demande pour cela. comme indiqué ci-dessous exemple:

    public void CheckWebFileExist()

{

try

{

    WebClient client = new WebClient();

    client.Credentials = CredentialCache.DefaultCredentials;



    // Create a request for the URL.         

    WebRequest request = WebRequest.Create("myAddress");



    // If required by the server, set the credentials.

    request.Credentials = CredentialCache.DefaultCredentials;



    // Get the response.

    HttpWebResponse response = (HttpWebResponse)request.GetResponse();



    //check response status

    if (string.Compare(response.StatusDescription, "OK", true) == 0)

    {

        //URL exists so that means file exists

    }

    else

    {

        //URL does not exist so that means file does not exist

    }      
}
catch (Exception error)

{

    //error catching

}
}

    Laissez-moi savoir si cela vous aider ou pas?

    Ça ne ressemble pas à du code VBA pour moi. Pouvez-vous préciser?
    que du code C#, vous pouvez avoir une idée sur la logique ou de la convertir.
    J'ai essayé aussi. Il avait l'air prometteur, car WebClient() est disponible en C++/C# et VB (en .NET). Mais apparemment, il n'est pas reconnu dans visual basic pour Applications. Merci quand même pour votre contribution.

    OriginalL'auteur Sigar Dave