Ist es möglich zu überprüfen, über VBA, wenn die Datei existiert auf einer sharepoint-Website?

Ich versuche zu schreiben, eine Excel (2010) makro, dass an einem gewissen Punkt zu bestätigen die Existenz einer bestimmten Datei (doc/pdf) an einem corporate sharepoint-Website.
Die Datei kann über den Internet Explorer (alle Rechte gewährt werden, um den Benutzer).
Ich habe einen direkten link zu dieser Datei.
Ich brauche nicht, um es zu öffnen, prüfen Sie einfach, ob Sie da ist.

Ob dies eine lokale Datei, die ich verwenden würde, Dir() zu prüfen, ob die Datei vorhanden ist.
Allerdings funktioniert es nicht mit URIs.

Ich habe versucht, eine Methode basiert auf dem via objHttp aber die einzige Antwort, die ich erhalte ist eine wepage die besagt, dass "ich bin nicht befugt, diese Seite anzusehen" [tag].

Ist das machbar in irgendeiner Weise?

  • Der link, den Sie haben, mit direktem Zugang? d.h. ohne Anmeldung/gespeichert werden-Anmeldung im browser?
InformationsquelleAutor Kuba | 2012-11-21
  1. 2

    Geben Sie diese ein Schuss:

    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 sollte so etwas wie "http://sharepoint/site/user.xlsx". Geben Sie Ihren Benutzernamen/Passwort in der .Open Linie, Sie zu übergeben, um die Website, und diese Arbeit sollte für jeden URI (ich testete es gegen .xlsx-Dateien zum Beispiel). Ich sollte darauf hinweisen, dass auf meiner internen SharePoint-Websites, brauche ich nicht zu passieren, die von der UN/PW, um diese Funktion ausführen, also wenn das Ende ist das bei Ihnen der Fall sein, entfernen Sie einfach die Parameter aus der .Open nennen. Außerdem sind alle header-Zeug ist wahrscheinlich nicht notwendig, aber ich habe Sie immer in meiner Wünsche so ließ ich Sie herein.

    • Vielen Dank. Es scheint, es funktioniert ziemlich gut!
    InformationsquelleAutor Kevin Pope
  2. -1

    Ich weiß nicht, kann dies helfen, oder nicht? Aber ich Teile meine Gedanken um Sie.
    Sie können http-Anforderung für, die. wie unten angegeben Beispiel:

    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

}
}

    Lassen Sie mich wissen, wenn dies helfen, oder nicht?

    • Das sieht nicht aus wie VBA-code zu mir. Können Sie das klären?
    • das ist C# - code haben , können Sie Idee über die Logik oder konvertieren.
    • Das habe ich versucht. Es sah vielversprechend aus, weil WebClient() in C++/C# und VB (in .NET). Aber es ist anscheinend nicht erkannt, in VB for Applications. Trotzdem danke für deinen Beitrag.
    InformationsquelleAutor Sigar Dave
Schreibe einen Kommentar