如何在vba中枚举本地电脑上安装的所有文件的后缀名？

用dos命令 assoc 可以枚举本地电脑上安装的所有文件的后缀名以及关联的文件类型。

在vba中可以使用Shell 函数 执行DOS命令。

为此，可以使用如下的代码枚举本地电脑上安装的所有文件的后缀名：

Sub QQ1722187970()
    Dim sPath As String
    sPath = Excel.ThisWorkbook.Path & "\test.txt"
    Dim sCmd As String
    sCmd = "cmd /c assoc>" & sPath
    Shell sCmd
    Shell ("notepad " & sPath)
End Sub