
附件 1:_IBK_1.PNG (2009-7-8 10:12, 6.47 K,下载次数: 4)
![]()
CODE: [Copy to clipboard]strFile = "winxpsp3.gho" '源文件(可以用通配符,没有路径为当前目录)
strFolder = "D:\GHOST" '目标目录
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strFolder).CopyHere strFile & "?", &H0&
附件 1:090710_144450.gif (2009-7-10 04:03, 23.27 K,下载次数: 2)
![]()
附件 1:QQ截图未命名.png (2009-7-10 07:28, 10.69 K)
![]()
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |