返回列表 上一主題 發帖

显示E盘下所有xls文件:

显示E盘下所有xls文件:

Sub E盘下所有xls文件()
Set objshell = CreateObject("wscript.shell")
With objshell
.popup .exec("cmd.exe /c dir/s e:\*.xls").stdout.readall, , "显示"
End With
End Sub
学习

是分享嗎 ? 很好 收藏學習 謝謝你 !!!
300 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題