Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
获得到DOS命令的返回值
作者:网络 | 来源:ExcelHome | 时间:2014-10-08 | 阅读权限:游客 | 会员币:0 | 【

今天在VBA中,想用xcopy来备份文件,不过烦心的一点是,不知道程序运行后,到底哪些文件已复制了。就在网上搜索,万能的网络,在万能的EH的黄金垃圾堆中,竟然淘到了这段代码,解决了上面的问题,感谢回复者:figfig,源码如下:

sub Sample1()
    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")         ''(1)
              ''(2)
    Set wExec = WSH.Exec("xcopy /?")    ''(3)
   
    Result = wExec.StdOut.ReadAll                   ''(5)
    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing
End Sub

运行后,开心的可以看到,消息弹出了获得到的DOS命令的返回值,感觉很有用,就记下来发在这里分享!

文章录入:admin | 浏览次数:
上篇文章:利用Excel VBA 发送邮件
下篇文章:已经没有了
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口