输出Dos中Dir各种开关参数的帮助文件

Sub ListDosDirHelp()

    With CreateObject("Wscript.Shell") 'VBA调用Dos命令

        ar = Split(.exec("cmd /c dir /?").StdOut.ReadAll, vbCrLf)

        'Dos中Dir命令的开关设置为"/?" 即返回各种开关的帮助文件信息。

    End With

    [a1].Resize(UBound(ar)) = WorksheetFunction.Transpose(ar)

End Sub