Portable preferences on Windows (USB sticks etc.)

Hi,

First a little testimony: I have it up and running on Vista Home Premium 64 bit without problems (ok it crashed once).

Then a little tutorial. In Coccinella .96.0 I cannot select the 'always store user preferences on same drive as program' option. So here is a little install script to take your login details etc. with you everywhere you go.

!!note: this is a very crude script and it will overwrite the existing settings on a pc if Coccinella has been running there before. You've been warned!!

1- Create a new folder in the Coccinella directory, call it "CoccinellaPrefs".

2- Find your user settings file in this folder: %UserProfile%\AppData\Roaming\Coccinella
In most cases your UserProfile dir will look like C:\Documents and Settings\UserName
The file is called WBPREFS.TXT

3- Copy WBPREFS.TXT to the new "CoccinellaPrefs" folder

4- make a new textfile in the "CoccinellaPrefs" folder, paste the following code :
'------------- START ----------------------
Option Explicit
On Error Resume Next

'Declare var's and objects
Dim WshS, fso, RegKey, RegVal, Result, apd, apf
Set WshS = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Get application data folder
RegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
RegVal = WshS.RegRead (RegKey & "AppData")
apd = WshS.ExpandEnvironmentStrings(RegVal) & "\"

'Copy
apf = apd & "Coccinella\"
If Not fso.FolderExists(apf) Then
Set newfolder = fso.CreateFolder(apf)
End If

fso.CopyFile "WBPREFS.TXT", apf, TRUE
'------------- END ----------------------

5- Save the file as "InstallPrefs.vbs" (make sure that it doesn't get the .txt extension)

6- Run this file to import your preferences on the local computer.

HTH
eph