========================Shell方法============================
1、VB 中使用Shell函数 ，参数-如果文件路径包含有空格的话，需要用 一对 chr(34) 引号括起来
例如-Shell "cmd /c echo dasfa" & Now & " >>" & Chr(34) & App.Path & " estShell.log" & Chr(34), vbHide
==========================================================