Recent Posts351
FARR Plugins and Aliases / FARRCloneWithDatestamp -- FARR helper tool to make datestamped copy of a file
« Last post by Nod5 on December 13, 2015, 04:38 PM »FARRCloneWithDatestamp is a FARR helper tool to make a datestamped copy of a currently selected file in Explorer. The copy is placed in the same folder.
Have you ever done ctrl+C ctrl+V on a file and then edited its name, perhaps added a datestamp in order to keep track of which copy is more recent than the others? Then this might just be a tool for you.
Setup:
1 paste the code into a text editor and save as FARRCloneWithDatestamp.ahk and then compile it (you need http://ahkscript.org/ for that).
2 store the compiled FARRCloneWithDatestamp.exe in some folder
3 create a FARR alias like this
alias name:
To use it open Explorer and select a file you want to create a clone of. Press your FARR hotkey, type "clo" and when the alias shows press enter.
Next to your "file.txt" you should now see "file -- 20151213092801.txt" .
Have you ever done ctrl+C ctrl+V on a file and then edited its name, perhaps added a datestamp in order to keep track of which copy is more recent than the others? Then this might just be a tool for you.
Setup:
1 paste the code into a text editor and save as FARRCloneWithDatestamp.ahk and then compile it (you need http://ahkscript.org/ for that).
2 store the compiled FARRCloneWithDatestamp.exe in some folder
3 create a FARR alias like this
alias name:
clone
regex pattern: ^(clo|clon|clone)$
result box:Clone selected with datestamp | C:\some\folder\FARRCloneWithDatestamp.exe %LASTHWND%
To use it open Explorer and select a file you want to create a clone of. Press your FARR hotkey, type "clo" and when the alias shows press enter.
Next to your "file.txt" you should now see "file -- 20151213092801.txt" .
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#SingleInstance force
x = %1% ;hwnd parameter from FARR
;FARRCloneWithDatestamp -- a helper tool for FARR
;what it does:
;focus the window that matches input parameter hwnd
;if explorer window: get selected files, parse first file
;make a copy of "file.ext" as
;"file -- [datestamp yyyymmddhhmmss].ext" in the same folder
;report status, exit
if x =
exitapp
WinGetClass, xclass, ahk_id %x%
if xclass != CabinetWClass ;exit if not Explorer win
exitapp
WinActivate, ahk_id %x%,
ifwinNotactive, ahk_id %x%
exitapp
clip := ClipBoardAll
clipboard =
send ^c ;copy
clipwait, 2
if errorlevel != 0
exitapp
Loop, Parse, clipboard, `n, `r
{
p := a_loopfield ;first file in selection
break
}
clipboard := clip ;restore
if InStr( FileExist(p), "D")
exitapp
splitpath, p, pname,pdir,pext,pnoext
FileCopy, %p%, %pdir%\%pnoext% -- %A_now%.%pext%
if !Errorlevel
tooltip, Clone %pdir%\%pnoext% -- %A_now%.%pext% created
else
tooltip, ERROR. Failed to clone %pname%
sleep 2000
exitapp
SendMode Input
SetWorkingDir %A_ScriptDir%
#SingleInstance force
x = %1% ;hwnd parameter from FARR
;FARRCloneWithDatestamp -- a helper tool for FARR
;what it does:
;focus the window that matches input parameter hwnd
;if explorer window: get selected files, parse first file
;make a copy of "file.ext" as
;"file -- [datestamp yyyymmddhhmmss].ext" in the same folder
;report status, exit
if x =
exitapp
WinGetClass, xclass, ahk_id %x%
if xclass != CabinetWClass ;exit if not Explorer win
exitapp
WinActivate, ahk_id %x%,
ifwinNotactive, ahk_id %x%
exitapp
clip := ClipBoardAll
clipboard =
send ^c ;copy
clipwait, 2
if errorlevel != 0
exitapp
Loop, Parse, clipboard, `n, `r
{
p := a_loopfield ;first file in selection
break
}
clipboard := clip ;restore
if InStr( FileExist(p), "D")
exitapp
splitpath, p, pname,pdir,pext,pnoext
FileCopy, %p%, %pdir%\%pnoext% -- %A_now%.%pext%
if !Errorlevel
tooltip, Clone %pdir%\%pnoext% -- %A_now%.%pext% created
else
tooltip, ERROR. Failed to clone %pname%
sleep 2000
exitapp
