怎么提取子文件夹名和提取子文件夹里的文件名并建立链接且要横向排列（在一行中的...

朱付安

tanglf188 发表于 2023-4-7 15:37
你要几层的目录？现在就两层：当前目录和子目录

我看到只有桌面的目录，没有可以选择的其他盘的目录

tanglf188

不知道你真实的目的是啥，如果单纯的想选择并打开一个文件可以用如下代码：
Sub OpenFile()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .ButtonName = "打开"
        .InitialFileName = ""
        .Title = "请选择一个文件"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            MsgBox "您即将打开的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "提示"
        End If
        .Execute
    End With
End Sub
如果Execute方法打开不满意可以用我写的Shell替换掉。