標題: 显示E盘下所有xls文件： [打印本頁]

---

作者: wqfzqgk    時間: 2010-6-28 23:59     標題: 显示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

---

作者: zz5151353    時間: 2010-6-29 08:27

是分享嗎 ? 很好 收藏學習 謝謝你 !!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)