Listbox Zugriff auf Daten
06.02.2017 17:24:53
RE
Ich habe eine Userform mit einer Listbox, in welcher Daten vom Laufwerk angezeigt werden.
Da ich aber Daten vom Intranet anzeigen möchte, welche sich nicht in U:... befinden sondern unter http://...
komme ich nicht mehr weiter.
Kann mir jemand sagen, wie ich den Link anpassen muss?
Hier der Code...
Private Sub UserForm_Activate()
Dim FSO As Object
Dim vntDateien As Variant
Dim objFolder As Object
Dim Datei
Const Pfad As String = "U:"
ListBox1.Clear
Set FSO = CreateObject("Scripting.filesystemObject")
Set objFolder = FSO.getfolder(Pfad)
ReDim vntDateien(objFolder.Files.Count)
For Each Datei In objFolder.Files
ListBox1.AddItem Datei
Next
End Sub