如何解决VBScript 错误 ADODB.Stream:写入文件失败
我正在尝试运行一个脚本,该脚本从文件解析 url 和项目名称,并尝试将文件从 url 下载为 zip 格式。我在将文件写入文件夹时看到错误。我使用的是 windows sserver 2012 R2
ADODB.Stream : 写入文件失败
我已验证 IUSER 和其他用户对目标和源文件夹具有完全访问权限。
这是脚本。我可以知道这里是否遗漏了什么吗?
Dim URLFile
Dim URLLine,URL,ProjectName
Dim xHttp,bStrm
Set objShell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
set fso = createobject("scripting.filesystemobject")
Set URLFile = fso.OpenTextFile("C:\Temp\Scripts\VBScripts\URLList.txt")
do while not URLFile.AtEndOfStream
URLLine = URLFile.ReadLine()
'Wscript.Echo URLLine
if len(URLLine)>10 then
URL = Left(URLLine,inStr(URLLine,";")-1)
ProjectName = Right(URLLine,Len(URLLine)-inStr(URLLine,";"))
Set xHttp = createobject("Microsoft.XMLHTTP")
Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET",False
xHttp.Send
with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile "C:\Backups\"&"Backup Zip All Files for "&ProjectName&"-"&cStr(Date)&".zip",2 '//overwrite
end with
Set xHttp = Nothing
Set bStrm = Nothing
end if
loop
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。