Hallo,
ich kann im Webbrowser eine Userform einfach mir den Ordnerinhalt eines Pfad anzeigen lassen...
Aber,
Kann man sich diese auch als "Miniaturansichten" anzeigen lassen ?!
Habe folgende Zeilen, aus TB27 wird der Pfad des Dokumenten (PDFs und JPGs i.d.R.) ausgelesen:
(UF_WB = Userform in der der Webbrowser (WB1) aufgezogen ist)
If TB27.Caption = "" Then Exit Sub
If PfadFSO.FolderExists(TB27.Caption) Then
If CheckOnline Then
link = TB27.Caption
antwort = MsgBox("Sie möchten den Pafd jetzt öffnen ?", vbYesNo, "Pfad-Aufruf")
If antwort = vbYes Then
UF_WB.WB1.Navigate2 (link)
UF_WB.link.Caption = "Sonderbauteil-DateiPfad"
UF_WB.Show
Else
Exit Sub
End If
Else
MsgBox "Sie sind derzeit nicht online, daher kann die PDF vom Server nicht aufgerufen werden", vbOKOnly, "Online-Status"
Exit Sub
End If
Else
MsgBox "Leider konnte der Pfad nicht geöffnet werden, " & VBA.Chr(13) & "bitte prüfen Sie den angegebenem Pfad!", vbInformation + vbOKOnly, "File-Link nicht vorhanden"
End If
Vielen Dank für jeden Hinweis ;o)
Gruß
Kay