Herbers Excel/VBA-Archiv

Laufzeitfehler '52'

• Laufzeitfehler '52' von Celuldor vom 11.10.2020 20:08:02
• AW: Laufzeitfehler '52' - von Celuldor am 11.10.2020 20:20:17
  • AW: Laufzeitfehler '52' - von Daniel am 11.10.2020 21:48:14
    • AW: Laufzeitfehler '52' - von Celuldor am 11.10.2020 23:00:04

Betrifft: Laufzeitfehler '52' von: Celuldor
Geschrieben am: 11.10.2020 20:08:02

Hallo ich bekomme einen Laufzeitfehler und mir wird die Zeile :

"strDateiName = Dir$("https://www.geheime_adresse.de/*.*")"

markiert.


hier mein Makro(anonymisiert):

Sub DateinamenAuflisten()
	Dim strDateiName As String, strDateienListe As String, i As Integer

strDateiName = Dir$("https://www.geheime_adresse.de/*.*")
	Do While strDateiName <> ""
	    strDateienListe = strDateienListe & ", " & strDateiName
	    i = i + 1
	    strDateiName = Dir$()
	Loop
	strDateienListe = Right(strDateienListe, Len(strDateienListe) - 2)
        Range("B1").Value = strDateienListe 
End Sub

Laufzeitfehler '52':

Dateiname oder -nummer falsch


wo ist mein Fehler?

und wichtiger, wie behebe ich diesen? :-)

  

Betrifft: AW: Laufzeitfehler '52'
von: Celuldor
Geschrieben am: 11.10.2020 20:20:17

achja, bei der URL handelt es sich im ein Cloud-Ordner mit Login,
in den "Datenquelleneinstellungen" habe ich diesen Login für diese URL auch hinterlegt

  

Betrifft: AW: Laufzeitfehler '52'
von: Daniel
Geschrieben am: 11.10.2020 21:48:14

Ich vermute mal, dass die DIR-Funktion noch ein "echtes" Laufwerk baucht und keine WWW-URL.
Gruß Daniel

  

Betrifft: AW: Laufzeitfehler '52'
von: Celuldor
Geschrieben am: 11.10.2020 23:00:04

ok, und wie heißt die Funktion die ich brauche um alle Dateien in einem Cloud Ordner aufzulisten?