by martialartsguy » Wed Feb 03, 2021 10:45 am
Peke wrote: ↑Wed Feb 03, 2021 8:42 am
Hi,
Have you opened "C:\Users\{me}\AppData\Roaming\MediaMonkey\Auto\Backup.vbs" in notepad and check what path plugin searches.
Also check plugin options for invalid paths.
Just installing it after deleting all Backup files, it appears that the error exists in this part:
Code: Select all
Sub CleanUp(par,del) '0=ask 1=yes 2=all
Dim fol,fil
If del < 2 Then
Dim res : res = SDB.MessageBox("Backup - delete folder '"&par.Path&"\'?",3,Array(0,1,3))
Select Case res
Case 6 'mrYes
del = 1
Case 10 'mrYesToAll
del = 2
Case Else
Exit Sub
End Select
End If
For Each fol In par.SubFolders
Call CleanUp(fol,del)
Next
For Each fil In par.Files
Call fil.Delete(True)
Next
Call par.Delete(True)
End Sub
Namely this line:
Code: Select all
For Each fol In par.SubFolders
Call CleanUp(fol,del)
Then I get an error that the extension was not installed.
EDIT: Welp, I couldn't get it to work, so I'm installing MM5.
[quote=Peke post_id=477893 time=1612359735 user_id=213]
Hi,
Have you opened "C:\Users\{me}\AppData\Roaming\MediaMonkey\Auto\Backup.vbs" in notepad and check what path plugin searches.
Also check plugin options for invalid paths.
[/quote]
Just installing it after deleting all Backup files, it appears that the error exists in this part:
[code]Sub CleanUp(par,del) '0=ask 1=yes 2=all
Dim fol,fil
If del < 2 Then
Dim res : res = SDB.MessageBox("Backup - delete folder '"&par.Path&"\'?",3,Array(0,1,3))
Select Case res
Case 6 'mrYes
del = 1
Case 10 'mrYesToAll
del = 2
Case Else
Exit Sub
End Select
End If
For Each fol In par.SubFolders
Call CleanUp(fol,del)
Next
For Each fil In par.Files
Call fil.Delete(True)
Next
Call par.Delete(True)
End Sub[/code]
Namely this line: [code]For Each fol In par.SubFolders
Call CleanUp(fol,del)[/code]
Then I get an error that the extension was not installed.
[b]EDIT: [/b]Welp, I couldn't get it to work, so I'm installing MM5.