帮忙写个简单的VBS脚本。
实现功能如下:
判断 %userprofile%\Application Data 目录下是否存在文件test.txt,
若存在就弹出提示存在;
若不存在就从 %tmp% 目录中复制一个到 %userprofile%\Application Data 下,并提示复制完成。
最好不调用外部命令。
---
可以加Q***********
参考答案:set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
lujing=ws.ExpandEnvironmentStrings("%userprofile%")
path=ws.expandenvironmentstrings("%tmp%")
'msgbox lujing & vbcrlf & path
if fso.fileexists(lujing & "\Application Data\test.txt")=true then
msgbox "文件存在!",4096,"提示"
else
fso.copyfile path & "\test.txt",lujing & "\Application Data\"
msgbox "文件复制成功!",4096,"提示"
end if