Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Fragen zu Excel/VBA >
Hier kannst Du Fragen speziell zu Deinem Problem stellen
In diesem Board befinden sich 1674 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH, .
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline   Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.12.2017 - 16:04 Uhr
Posts



Hallo,

mein Problem gestaltet sich folgendermaßen:

Auf einem Sharepoint liegt eine Datei deren Namen ich fast komplett kenne und ich kenne auch den Pfad. Der Teil der mir im Dateinamen fehlt ist die Versionsnummer.
Nun möchte ich genau diese gern ermitteln. Im Endeffekt geht es um einen Update check: "Ist die Sharepoint Version der Datei aktueller als die lokale des Anwenders.

Momentan arbeite ich mit diesem Code:

Sub check_for_file()
Dim a As Boolean
a = F50_check_SP_File_Exists("https://my.site.com/here/path/and/filename_*.zip")
End Sub


Public Function F50_check_SP_File_Exists(URLStr As String) As Boolean
Dim oHttpRequest As Object

Set oHttpRequest = CreateObject("MSXML2.XMLHTTP.6.0")
With oHttpRequest
.Open "GET", URLStr, False ', [UserName], [Password]
.SetRequestHeader "Cache-Control", "no-cache"
.SetRequestHeader "Pragma", "no-cache"
.Send
End With

If oHttpRequest.Status = 200 Then
F50_check_SP_File_Exists = True
Else
F50_check_SP_File_Exists = False
End If
Set oHttpRequest = Nothing

End Function

Damit bekomme ich aber nur heraus ob es eine Datei gibt.
Was mir in dem Respons fehlt ist der genaue Name inclusive der Version.
Es könnten dort auch mehrere Dateien liegen die sich nur in der Versionsnummer unterscheiden.
Ich hätte also am liebsten die Datei Namen aller Dateien die das Kriterium diesen Dateinamens erfüllen: "file_version_*.zip"

Im Sinne von: Gefunden wurde:
https://my.site.com/here/path/and/filename_2.3.zip
https://my.site.com/here/path/and/filename_2.4.zip
https://my.site.com/here/path/and/filename_3.1.zip


Bin für jeden Tip dankbar.

Grüße Ralf

 ist offline  : Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.12.2017 - 17:07 Uhr
Posts



http://www.herber.de/forum/archiv/1176to1180/1178945_Dateienamen_in_Ordner_auf_Website_auslesen.html

 ist offline  : Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.12.2017 - 20:19 Uhr
Posts



Den hab ich versucht, komme aber nicht dahinter warum er nicht funktioniert.

Wenn ich in den Beispiel meine URL einsetze bekomme ich in Zeile:

S01.Range("c5").Value = S01.Cells(Application.Match("*.xls", S01.Columns(22), 0), 22).Value

einen

Run-time error '13' Type mismatch

javascript:addcode('');

 ist offline  : Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
3.12.2017 - 17:54 Uhr
Posts



Hi,

Application.Match arbeitet nicht mit Wildcards.

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek