想u盘插入电脑后自动备份U盘所有文件和文件夹到电脑,
如下;
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("h:\") then
fso.copyfile"h:\*","d:\备份文件\"
fso.copyfolder"h:\*","d:\备份文件\"
wscript.sleep 20000
end if
loop结果,U盘文件可以可以正常备份,但文件夹无法备份
如下;
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("h:\") then
fso.copyfile"h:\*","d:\备份文件\"
fso.copyfolder"h:\*","d:\备份文件\"
wscript.sleep 20000
end if
loop结果,U盘文件可以可以正常备份,但文件夹无法备份
解决方案 »
- 各路大虾好:麻烦您给虾米我把把脉,这段代码用VB调用EXCEL结果不对,是为什么?
- vb6如何判断字符串是否符合一定规则
- 求原代码(vb中把access转换成txt)
- 请教如何停止ScriptControl
- 问关于vsFlexGrid的问题
- vb运行时弹出对话框或者提示上的标题:“工程1“怎么改掉???
- 请问能不能设置这种热键,只按ALT+SHIFT这两个键把程序从后台提到前台
- MSHFlexGrid能否合并单元格?
- DAO中的opendatabass方法的source参数怎样用?
- 在VB中入户用代码结束一个COM+服务程序?
- 请问一下大神vb下如何调用C#下的dll
- VB读取XML文件中的值,并修改指定值,并保存
强烈建议你找另外的方案。