Folder monitor a Nimi Places: rozdělaná práce na ploše stále na očích

Článek o tom, jak dostat změny v pracovních složkách přímo na plochu formou odkazů na zajímavé soubory.

Postup jsem testoval na Windows 7 64bit.

Stáhněte a nainstalujte program Nimi Places (zobrazuje na ploše dokovací okno s výpisem požadovaných složek). Vytvořil jsem mu složku C:/Data/DesktopContainer/. Nimi Places sleduje určitou složku, tu jsem vytvořil jako C:/Data/DesktopContainer/Places/Container/News.

Nimi Places

Dále budeme potřebovat prográmek Directory Monitor, který jsem rozbalil do "C:/Data/DesktopContainer/FolderMonitor/". Bude sledovat zadané složky a v případě změn spustí náš skript. Sledovat budeme ukázkovou složku na ploše - test (vytvořte ji). 

Directory monitor

Při vytvoření  nového souboru (New Files) spustí skript createShortcutInNews.bat (viz screen výše) ve stejné složce.

Skript createShortcutInNews.bat:

:: Skript k vytvoreni zastupce v urcitem umisteni.
:: Author: JanKoWeb, 2012

:: off double calling of echo
@echo off

:: file, prvni argument z command line
set file=%1
:: filename - vytahneme z f
set fn=%~n1

set shortcut="c:\Data\DesktopContainer\Places\Containers\News\%fn%.lnk"

:: vytvoreni zastupce
cscript createLink.vbs %shortcut% %file%

:: to not close the console uncomment next line
::pause

:: end of script
exit

Skript createLink.vbs:

' Skript na vytvoreni shortcut (zastupce).
' Pouziti - zavolat: 
'  cscript createLink.vbs "Cesta k zastupci\muj.lnk" "cesta_zdroje"
'  napr. cscript createLink.vbs C:\Documents and Settings\%USERNAME%\Desktop\Program1 shortcut.lnk" "c:\program Files\App1\program1.exe" 
' Zdroj: http://stackoverflow.com/questions/346107/creating-a-shortcut-for-a-exe-from-a-batch-file, 09/2012
set objWSHShell = CreateObject("WScript.Shell")
set objFso = CreateObject("Scripting.FileSystemObject")

' command line arguments
' TODO: error checking
sShortcut = objWSHShell.ExpandEnvironmentStrings(WScript.Arguments.Item(0))
sTargetPath = objWSHShell.ExpandEnvironmentStrings(WScript.Arguments.Item(1))
sWorkingDirectory = objFso.GetAbsolutePathName(sShortcut)

set objSC = objWSHShell.CreateShortcut(sShortcut) 

objSC.TargetPath = sTargetPath
objSC.WorkingDirectory = sWorkingDirectory

objSC.Save

Nyní, pokud vytvoříte v testovací složce (test) soubor, měl by se objevit jeho zástupce na ploše v Nimi Places okénku.