Code: Select all

ExportOPML.vbs
--------------
  ' Let user select the output path
  Dim path
  path = iniF.StringValue( "Scripts", "LastExportOPMLDir")

  path = SDB.SelectFolder( path, SDB.Localize( "Select where to export the OPML file."))
---------------

MediaMonkey.ini
---------------
[Scripts]
LastExportOPMLDir=C:\Users\Ian\Documents\
---------------

Code: Select all

 ' Open inifile and get last used directory
  Dim iniF
  Set iniF = SDB.IniFile

  ' Let user select the output path
  Dim path
  path = iniF.StringValue( "Scripts", "LastDB_AuditDir")

  path = SDB.SelectFolder( path, SDB.Localize( "Select where to create the Audit Report."))

  If path="" Then
    Exit Sub
  End If

  If Right( path, 1)<>"\" Then
    path = path & "\"
  End If

  ' Write selected directory to the ini file
  iniF.StringValue( "Scripts", "LastDB_AuditDir") = path
  Set iniF = Nothing