老牌问答平台，雅虎问答（YahooAnswers）即将关闭，-CSDN blink-领先的开发者技术社区

热门

最新

红包

立Flag

投票

同城

我的

发布

4 年前

truesongjiujiu

老牌问答平台，雅虎问答（Yahoo Answers）即将关闭，官方发布公告称将于2021年5月4日（美国东部时间）关闭，编辑宋九九。
公告内容翻译如下：
Yahoo Answers将于2021年5月4日（美国东部时间）关闭，从2021年4月20日（美国东部时间）开始，Yahoo Answers网站将处于只读模式。其他Yahoo属性或服务，或您的Yahoo帐户将保持不变。您可以在此帮助页面上找到有关Yahoo Answers关闭以及如何下载数据的更多信息。

CSDN App 扫码分享

分享

评论

点赞

打赏

复制链接
举报

下一条：

Set oShell = CreateObject("WScript.Shell")Set oFS = CreateObject("Scripting.FileSystemObject")sHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")sJBDataFolder = oShell.ExpandEnvironmentStrings("%APPDATA%") + "\JetBrains"Set re = New RegExpre.Global = Truere.IgnoreCase = Truere.Pattern = "\.?(IntelliJIdea|GoLand|CLion|PyCharm|DataGrip|RubyMine|AppCode|PhpStorm|WebStorm|Rider).*"Sub removeEval(ByVal file, ByVal sEvalPath) bMatch = re.Test(file.Name) If Not bMatch Then Exit Sub End If If oFS.FolderExists(sEvalPath) Then oFS.DeleteFolder sEvalPath, True End IfEnd SubIf oFS.FolderExists(sHomeFolder) Then For Each oFile In oFS.GetFolder(sHomeFolder).SubFolders removeEval oFile, sHomeFolder + "\" + oFile.Name + "\config\eval" NextEnd IfIf oFS.FolderExists(sJBDataFolder) Then For Each oFile In oFS.GetFolder(sJBDataFolder).SubFolders removeEval oFile, sJBDataFolder + "\" + oFile.Name + "\eval" NextEnd IfMsgBox "done"