Re: Linking and opening jpeg files using hyperlinks/formulas

Option Explicit

Sub GetFileNames()
     
    Dim xRow As Long
    Dim xDirect, xFname$, InitialFoldr$
    Dim sn
    Dim i As Integer
    Dim d
    InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect = .SelectedItems(1) & "\"
            sn = Split(CreateObject("wscript.shell").exec("cmd /c dir " & xDirect & "/b/s").stdout.readall, vbCrLf)
            i = 2
            For Each d In sn
                ActiveSheet.Hyperlinks.Add Cells(i, "A"), d
                i = i + 1
            Next d
        End If
    End With
End Sub