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命令没好使
为什么有错误提示?作者: slore 时间: 2008-3-25 19:06 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命令没好使