yu2n 当前离线
上尉
Option Explicit Dim wso, sDesktop Set wso = CreateObject("WScript.Shell") sDesktop = wso.SpecialFolders("Desktop") '“桌面”文件夹位置 wso.Run "cmd /c md """ & sDesktop & "\fso""", 0, True Msgbox sDesktop & "\fso 创建成功!" , vbInformation, "提示"复制代码
TOP