Bestanden uit een directory weergeven.

[jdebl]

Wie kan mij helpen met het volgende.

Ik wil dmv een link of knop de bestanden weergeven in een map uit een bepaalde directory.
Als dan de lijst met bestanden zichtbaar is wil ik met 1 klik het bestand kunnen openen.

Ik wil dus niet de gehele verkenner en boomstructuur in beeld zien maar alleen de bestanden uit een bepaalde directory.
Is dit mogelijk?

alvast bedankt voor jullie hulp

jan

 

[RogerS]

Ik gebruik hiervoor Fences Pro, de functie Folder Portal

 

[jdebl]

Ik gebruik hiervoor Fences Pro, de functie Folder Portal

is dit ook in Excel in te voegen?

Ik ben vergeten te vermelden dat ik dit zichtbaar wilt maken in Excel.

Jan

 

[RogerS]

Nee dat gaat dan weer niet. In excel zul je via VBA een directory list moeten maken. Van deze lijst maak je dan snelkoppelingen, zodat ze door klikken geopend kunnen worden.

 

[snijworst]

Als t goed is heb ik daar thuis een excel bestandje voor. Ik kom hiet vanavond op terug...

 

[JeanPaul28]

Om welke bestanden gaat het, heb je zelf al iets getest, laat eens zien wat je zelf al hebt gemaakt.

 

[snijworst]

Hier een bestandje dat ik al een tijdje heb. Wellicht is dit wat je bedoeld...

 

[Warme bakkertje]

Sub Dir_List_Hyperlink()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        c00 = .SelectedItems(1)
        sn = Filter(Split(.SelectedItems(1) & vbCrLf & CreateObject("wscript.shell").exec("cmd /c dir """ & _
                .SelectedItems(1) & "\*.xls*"" /b").stdout.readall, vbCrLf), ".")
    End With
    Sheets(1).Columns(1).ClearContents
    For j = 0 To UBound(sn)
        With Sheets(1)
            .Hyperlinks.Add .Cells(j + 1, 1), c00 & "\" & sn(j), , , Left(sn(j), InStrRev(sn(j), ".") - 1)
        End With
    Next
    
End Sub