35 lines
987 B
Plaintext
35 lines
987 B
Plaintext
Set oShell = CreateObject("WScript.Shell")
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
sHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
|
|
sJBDataFolder = oShell.ExpandEnvironmentStrings("%APPDATA%") + "\JetBrains"
|
|
|
|
Set re = New RegExp
|
|
re.Global = True
|
|
re.IgnoreCase = True
|
|
re.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 If
|
|
End Sub
|
|
|
|
If oFS.FolderExists(sHomeFolder) Then
|
|
For Each oFile In oFS.GetFolder(sHomeFolder).SubFolders
|
|
removeEval oFile, sHomeFolder + "\" + oFile.Name + "\config\eval"
|
|
Next
|
|
End If
|
|
|
|
If oFS.FolderExists(sJBDataFolder) Then
|
|
For Each oFile In oFS.GetFolder(sJBDataFolder).SubFolders
|
|
removeEval oFile, sJBDataFolder + "\" + oFile.Name + "\eval"
|
|
Next
|
|
End If
|
|
|
|
MsgBox "done"
|