Question

我需要从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 $ ****语言的目录。谢谢你的回复。

Answer 1

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

如果您希望，如标题所示，只是获取您无法知道的文件夹的名称，因为它是随机生成的，您可以查询所有子文件夹，如下所示：

设置objFSO = CreateObject（“Scripting.FileSystemObject”）

设置subFolders = objFSO.GetFolder（“C：\ Users \\ AppData \ Roaming \ Mozilla \ Firefox \ Profiles”）。子文件夹对于子文件夹中的每个文件夹 Wscript.Echo folder.Path 下一步

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

您可能真正想要的是不在任何存在但正确的文件夹中执行此操作。在这种情况下，您必须弄清楚活动Firefox配置文件的正确名称。最好的方法是使用Firefox本身使用的相同方法来确定这是profiles.ini。它位于％AppData％\ Mozilla \ Firefox中。你可以用
阅读
Const ForReading = 1，ForWriting = 2，ForAppending = 8

设置File = 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”这样的行，如果用户使用多个配置文件并切换它可能会更复杂，但这在很大程度上取决于您的工作场所。

VBS从随机命名生成的文件夹

1 个答案: