VBS 从随机命名的生成文件夹中删除文件/文件夹答案

【问题标题】：VBS Remove file/folder from random named generated folderVBS 从随机命名的生成文件夹中删除文件/文件夹
【发布时间】：2016-02-22 23:19:21
【问题描述】：

我需要从 FF Appdata 目录中删除 1 个文件夹和 1 个文件。现在我有了这个

Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
UserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
AppData = WshShell.ExpandEnvironmentStrings("C:\Users\%USERNAME%\AppData\Local")
If objFSO.FolderExists(AppData &"\Mozilla\Firefox\Profiles\%FOLDERNAME%\cache2\") Then
    objFSO.DeleteFolder AppData &"\Mozilla\Firefox\Profiles\%FOLDERNAME%\cache2\"
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
UserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
AppData = WshShell.ExpandEnvironmentStrings("%AppData%")
If objFSO.FileExists(AppData &"\Mozilla\Firefox\Profiles\%FOLDER%\sessionCheckpoints.json") Then
    objFSO.DeleteFile AppData &"\Mozilla\Firefox\Profiles\%FOLDER%\sessionCheckpoints.json"
End If

我需要替换 \%FOLDER\ 以正确精确定位此 M$ **** 语言的目录。谢谢回复。

【问题讨论】：

标签： variables vbscript path directory

【解决方案1】：

根据您在这里真正想做的事情，有两种可能的方法：

如标题所示，如果您想获取一个您不知道的文件夹的名称，因为它是随机生成的，您可以像这样查询所有子文件夹：

设置 objFSO = CreateObject("Scripting.FileSystemObject")

设置 subFolders = objFSO.GetFolder("C:\Users\\AppData\Roaming\Mozilla\Firefox\Profiles").SubFolders 对于子文件夹中的每个文件夹 Wscript.Echo 文件夹.路径下一个

然后在循环中为每个文件夹做你的工作。这样做的另一个好处是，如果有多个文件夹，它也可以工作。

您真正想要的可能是不在任何存在的文件夹中执行此工作，而是在正确的文件夹中进行。在这种情况下，您必须弄清楚活动 Firefox 配置文件的正确名称是什么。最好的方法是使用 Firefox 本身用来确定profiles.ini 的相同方法。它位于 %AppData%\Mozilla\Firefox。你可以阅读它

常量 ForReading = 1，ForWriting = 2，ForAppending = 8

设置文件 = objFSO.OpenTextFile("C:\Users\\AppData\Roaming\Mozilla\Firefox\Profiles.ini", ForReading, False)

Do While Not File.AtEndOfStream strWS = File.ReadLine() 循环

格式描述为here。现在通常您只需检查“Path=Profiles/qioxtndq.default”之类的行，如果用户使用多个配置文件并切换它可能会更复杂，但这在很大程度上取决于您的工作场所。

【讨论】：