Try
MoveUp!
Not heavily tested... Just download, compile to an exe using AutoHotkey, run it and choose Install MoveUp into SendTo.
To use it, select the files to move to the parent folder, rightclick one of them and choose SendTo - MoveUp.
Skrommel
;MoveUp.ahk
; Rightclick one or more files and select the contextmenu SendTo - MoveUp
; to move the files to the parent folder
;Skrommel @ 2009
#NoEnv
#SingleInstance,Off
#NoTrayIcon
applicationname=MoveUp
If 0=0
{
Gosub,ABOUT
Return
}
Loop,%0%
{
filename:=%A_Index%
Loop,%filename%,1,0
{
SplitPath,A_LoopFileLongPath,,dir
Break
}
SplitPath,dir,,parentdir
Break
}
error=0
Loop,%0%
{
filename:=%A_Index%
Loop,%filename%,1,0
{
SplitPath,A_LoopFileLongPath,name
Break
}
filename=%dir%\%name%
; MsgBox,%0%:Moving`n %filename%`nto`n %parentdir%\%name%
FileGetAttrib,attrib,%filename%
IfInString,filename,D
{
FileMoveDir,%filename%,%parentdir%\%name%
If errorlevel=1
error+=1
}
Else
{
FileMove,%filename%,%parentdir%\%name%
If errorlevel=1
error+=1
}
}
If error>0
ToolTip,Error! %error% files were not moved!
Else
ToolTip,Success! %0% files were moved!
Sleep,3000
ExitApp
INSTALL:
RegRead,sendto,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,SendTo
IfNotExist,%sendto%\%applicationname%.lnk
FileCreateShortcut,%A_WorkingDir%\%applicationname%,%sendto%\%applicationname%.lnk,,,,%A_WorkingDir%\%applicationname%.exe,,1,
IfNotExist,%sendto%\%applicationname%.lnk
MsgBox,0,%applicationname%,Unable to install MoveUp!
Else
MsgBox,0,%applicationname%,MoveUp installed in SendTo!
Gosub,ABOUT
Return
UNINSTALL:
RegRead,sendto,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,SendTo
IfExist,%sendto%\%applicationname%.lnk
FileDelete,%sendto%\%applicationname%.lnk
IfExist,%sendto%\%applicationname%.lnk
MsgBox,0,%applicationname%,Unable to remove MoveUp!
Else
MsgBox,0,%applicationname%,MoveUp removed from SendTo!
Gosub,ABOUT
Return
ABOUT:
Gui,Destroy
Gui,Margin,20,20
Gui,Add,Picture,xm Icon1,%applicationname%.exe
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,%applicationname% v1.0
Gui,Font
Gui,Add,Text,y+10,Rightclick one or more files and select the contextmenu SendTo - MoveUp
Gui,Add,Text,xp y+5,to move the files to the parent folder
RegRead,sendto,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,SendTo
IfNotExist,%sendto%\%applicationname%.lnk
Gui,Add,Button,GINSTALL,&Install MoveUp into SendTo
Else
Gui,Add,Button,GUNINSTALL,&Remove MoveUp from SendTo
Gui,Add,Picture,xm y+20 Icon2,%applicationname%.exe
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,1 Hour Software by Skrommel
Gui,Font
Gui,Add,Text,y+10,For more tools, information and donations, please visit
Gui,Font,CBlue Underline
Gui,Add,Text,y+5 G1HOURSOFTWARE,www.1HourSoftware.com
Gui,Font
Gui,Add,Picture,xm y+20 Icon7,%applicationname%.exe
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,DonationCoder
Gui,Font
Gui,Add,Text,y+10,Please support the contributors at
Gui,Font,CBlue Underline
Gui,Add,Text,y+5 GDONATIONCODER,www.DonationCoder.com
Gui,Font
Gui,Add,Picture,xm y+20 Icon6,%applicationname%.exe
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,AutoHotkey
Gui,Font
Gui,Add,Text,y+10,This tool was made using the powerful
Gui,Font,CBlue Underline
Gui,Add,Text,y+5 GAUTOHOTKEY,www.AutoHotkey.com
Gui,Font
Gui,Show,,%applicationname% About
hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
OnMessage(0x200,"WM_MOUSEMOVE")
Return
1HOURSOFTWARE:
Run,http://www.1hoursoftware.com,,UseErrorLevel
Return
DONATIONCODER:
Run,https://www.donationcoder.com,,UseErrorLevel
Return
AUTOHOTKEY:
Run,http://www.autohotkey.com,,UseErrorLevel
Return
GuiClose:
Gui,Destroy
OnMessage(0x200,"")
DllCall("DestroyCursor","Uint",hCur)
ExitApp
Return
WM_MOUSEMOVE(wParam,lParam)
{
Global hCurs
MouseGetPos,,,,ctrl
If ctrl in Static8,Static12,Static16
DllCall("SetCursor","UInt",hCurs)
Return
}
Return
EXIT:
ExitApp
Show Posts
I just updated GreenOSD above!
You guys...