Just Cos I Love This Devt Project ... Some Scripts To Share

Just Cos I Love This Devt Project ...

I keep these THREE (3) scripts in the same installation folder as my PortableApps (ie. E:\PortableApps). This allows me to do quick, consistent, repeatable application installs on the various PCs around the house, at work or otherwise (just in the slim chance I do not have my USB drive with me).

===== Make.bat
@echo off

SET CPATH="c:\AddProg\PortableApps"
SET DPATH="d:\Downloads"

SET XPATH=%CPATH%
SET DESKTOP="c:\Documents and Settings\All Users\Desktop\PortableApps"

REM del all old directories
rmdir /s /q %XPATH%

REM mkdir
mkdir %XPATH%

REM xcopy
FOR %%a IN (7-ZipPortable ClamWinPortable Notepad++Portable SumatraPDFPortable PuTTYPortable WinSCPPortable InfraRecorderPortable VLCPortable) DO xcopy %%a %XPATH%\%%a /s /e /z /v /i

REM assoc
REM ASSOC .txt=txtfile
REM ASSOC .out=txtfile
REM FTYPE txtfile=%XPATH%\Notepad++Portable\Notepad++Portable.exe %%1

REM del
del /f /q %XPATH%\PuTTYPortable\Data\settings\*
del /f /q %XPATH%\WinSCPPortable\Data\settings\*
REM del /f %XPATH%\putty\*.zip
REM del /f %XPATH%\WinSCP\*.ini

REM open new directory
start explorer.exe %XPATH%

REM run commands
%XPATH%\7-ZipPortable\7-ZipPortable.exe &
%XPATH%\SumatraPDFPortable\SumatraPDFPortable.exe &

echo.
echo All done!
REM pause > nul

@echo on

===== Make Shortcuts.bat
@echo off

echo Running .vbs
cscript Shortcuts.vbs

@echo on

===== Shortcuts.vbs
Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "c:\Documents and Settings\All Users\Desktop\PortableApps.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)

oLink.TargetPath = "c:\AddProg\PortableApps"
oLink.Description = "PortableApps"
' oLink.Arguments = ""
' oLink.HotKey = "ALT+CTRL+F"
' oLink.IconLocation = "C:\Program Files\MyApp\MyProgram.EXE, 2"
' oLink.WindowStyle = "1"
' oLink.WorkingDirectory = "C:\Program Files\MyApp"
oLink.Save
' =====
Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "c:\AddProg\PortableApps\7-ZipPortable.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)

oLink.TargetPath = "c:\AddProg\PortableApps\7-ZipPortable\7-ZipPortable.exe"
oLink.Description = "7-ZipPortable"
oLink.Save
' =====
' if you want auto-startup of apps, add the shortcut .lnk file to the path below
' c:\Documents and Settings\All Users\Start Menu\Programs\Startup

nJoy!