on error resume next
dim fs,dis,fold
set fs=wscript.createobject("scripting.filesystemobject")
'建立FSO模型
if (fs.folderexists("c:\temptest")) then
'如果该文件夹存在,该怎么做
dis="该文件夹存在"
else
dis="该文件夹bu存在"
set fold=fs.createfolder("c:\temptest")
'如果该文件夹存在,该怎么做
'fs.copyfolder "c:\temp" "c:\temptest",true
end if
set fold=fs.getfolder("c:\temptest")
fold.move "d:\temp"
set fold=fs.getfolder("c:\temp")
fold.copy "d:\Temp",true
'测试copy命令没好使
set fold=fs.getfolder("c:\temp")
fold.move "d:\Temp"
'测试move命令没好使
set fold=fs.getspecialfolder(2)
'getspecialfolder(值)可取0,1,2,分别代表windows目录,system32目录和临时目录
wscript.echo fold
wscript.echo err.number & err.description & err.source
为什么有错误提示?
dim fs,dis,fold
set fs=wscript.createobject("scripting.filesystemobject")
'建立FSO模型
if (fs.folderexists("c:\temptest")) then
'如果该文件夹存在,该怎么做
dis="该文件夹存在"
else
dis="该文件夹bu存在"
set fold=fs.createfolder("c:\temptest")
'如果该文件夹存在,该怎么做
'fs.copyfolder "c:\temp" "c:\temptest",true
end if
set fold=fs.getfolder("c:\temptest")
fold.move "d:\temp"
set fold=fs.getfolder("c:\temp")
fold.copy "d:\Temp",true
'测试copy命令没好使
set fold=fs.getfolder("c:\temp")
fold.move "d:\Temp"
'测试move命令没好使
set fold=fs.getspecialfolder(2)
'getspecialfolder(值)可取0,1,2,分别代表windows目录,system32目录和临时目录
wscript.echo fold
wscript.echo err.number & err.description & err.source
为什么有错误提示?
