Dateien aus einem Ordner im Netzwerk lesen

Hallo Forum,
bräuchte bitte nochmal eure Unterstützung bei folgendem Umstand.
Wir haben bei uns im Netzwerk einen Ordner liegen,
Pfad: W:\01_Messwerte\tmp
in diesem sind etwa 800 Videofiles mit kurzen Sequenzen.
Ich würde mir gerne im meiner Exceldatei die " Messungen " heisst, im Tabellenblatt
" Datenbank " im Zellbereich D16:D10000 beginnend bei D16 die Namen der
Videofiles abwärts listen lassen.
Wenn ich die da gelistet bekäme wäre ich schon sehr froh.
Im Anschluß würde ich gerne wenn man in eine Zelle mit entspr. Videonamen klickt, dass dann dieses Video abgespielt wird. Das wäre dann oberperfekt.
Aber ich wäre auch schon mit der Auflistung sehr zufrieden ...
Könnt ihr mir dabei bitte helfen, die wenigen Beispiele in der Recherche helfen mir nicht, bzw. ich komm evtl. nicht damit klar.
Wäre euch sehr dankbar
LG udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Liste() Const ROOT_PATH As String = "J:\Videos" ' habe hier einige testvideos eingefügt 15 Stk. zum _ testen Dim strFilename As String Dim lngRow As Long Application.ScreenUpdating = False lngRow = 16 strFilename = Dir$(PathName:=ROOT_PATH & "*.h264") 'Dateiendung auf H264 angepasst Do Until strFilename = vbNullString With Worksheets("Datenbank") Call .Hyperlinks.Add(Anchor:=.Cells(lngRow, 1), _ Address:=ROOT_PATH & strFilename, TextToDisplay:=strFilename) End With lngRow = lngRow + 1 strFilename = Dir$ Loop *** Worksheets("Datenbank").Columns(1).AutoFit Application.ScreenUpdating = True End Sub

Sub Test_Dateien_Auslesen() Dim objAL As Object Dim objFSO As Object Dim strPath Dim strFile Dim vntFiles As Variant Dim L As Long Set objAL = CreateObject("System.Collections.Arraylist") Set objFSO = CreateObject("Scripting.FilesystemObject") strPath = "J:\Videos" 'verzeichnis With objAL For Each strFile In objFSO.getfolder(strPath).Files 'Alle Dateien auslesen Select Case LCase(objFSO.getExtensionName(strFile)) Case "h264" .Add strFile.Path 'Datei in die Arraylist aufnehmen End Select Next .Sort 'ArrayList sortieren vntFiles = .toArray 'ArrayList in ein Array wegschreiben End With 'Ausgeben For L = LBound(vntFiles) To UBound(vntFiles) MsgBox vntFiles(L) '... hier ändern auf in zelle eintragen ? Next End Sub

Hallo Nepumuk, leider komm ich erst heute Abend wieder dazu mich zurückzumelden,
bin Morgen dann aber auch dran,
Habe heute Nachmittag mal schnell noch was zusammengebaut als Beispiel.
Es sind 2 Codevarianten darin enthalten, Liste_1 ( deiner ), da stimmt irgendwas noch nicht, find ich aber nicht woran es da liegt ...
und ein weiterer Code - Liste_2 der funktioniert schon einigermaßen.. auch das Thema mit dem Hyperlink konnte ich bereits lösen.
Vielleicht hast mal nochmal Zeit reinzuschauen, da wäre ich dir sehr sehr dankbar.
Nur eines wäre mir wichtig dabei, das beim Einlesen und in die Spalten auflisten dann eine
Reihenfolge eingehalten wird. Das Ding ist das unsere Messbox im Gesch. , sprich die Software die dort die Messungen vornimmt , davon alle Messdaten in eine glaub SQL Datenbank einträgt, diese Daten frage ich mit meiner eigentlichen Exceltabelle hierzu ab. Dort werden die Daten eben auch bezogen auf das Änderungsdatum eingeladen, und da würde ich gerne die Videofiles gleich einlesen was die Reihenfolge angeht, damit jedes Videofile dann auch in seiner passenden Zeile steht , deswegen wäre das Einlesen nach Änderungsdatum schon arg wichtig, kann man das in dem Code -Liste _2 noch angeben ?
Dafür reicht mein Knowhow leider nicht aus ...
Wenn du oder Jemand anders mir dabei noch helfen könntet wäre das echt super
Hier mal die Datei :
https://www.herber.de/bbs/user/108968.xlsm
Eines noch , sollte es nciht möglich sein nach Änderungsdatum einzulesen, kann man dann zum Namen passend die Uhrzeit und Datum anhängen ... dann önnt ichs nachfolgend dennoch über Formel auslesen und entspr. evtl. sortieren ...
LG udo

Beliebteste Forumthreads (12 Monate)

Dateien aus einem Ordner im Netzwerk lesen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien aus einem Ordner im Netzwerk lesen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread