home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / pcwsico.exe / SaveDemo.vbs < prev    next >
Text File  |  2001-02-26  |  773b  |  28 lines
  1. '==========================================================================
  2. '
  3. ' VBScript Source File 
  4. '
  5. ' NAME: SaveDemo.VBS
  6. '
  7. ' AUTHOR: Thorsten Eggeling
  8. ' DATE  : 02.2001
  9. '
  10. ' COMMENT: demonstriert das Sichern der Desktop-Icon-Positionen
  11. '
  12. ' n÷tige Anpassungen: IniFileName, [Resolution]
  13. '                     
  14. '==========================================================================
  15. IniFileName=Mid(WScript.ScriptFullName, 1, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) & "SRIcons.INI"
  16.  
  17. Set mySIcon = CreateObject("pcwSIcon.pcwSIcon")
  18.  
  19. 'aktuelles Layout speichern
  20. MsgBox("Layout speichern.")
  21. With mySIcon
  22. .IniFileName=IniFileName
  23. 'bei Bedarf lΣ▀t sich hier ein eigener Layout-Name festlegen
  24. '.Resolution="myDesktop"
  25. .Save
  26. End With
  27.  
  28.