Autoit.ES

Código: Seleccionar todo

;FileDelete($sacandoaccesos[$i])
FileMove($sacandoaccesos[$i],$destino & "sandbox-cambiazo\",8)

Código: Seleccionar todo

Global $aSeleccion,$sacandoaccesos

HotKeySet("!{ESC}","_Salir") ; Alt + ESC para salir
HotKeySet("^!p","_Cambiazo") ; Ctrl + Alt + p para ejecutar la acción

While 1
	Sleep(120000)
WEnd

Func _Cambiazo()
	If WinActive("[REGEXPCLASS:(Explore|Cabinet)WClass]") Then
		$aWinList = WinGetHandle("[REGEXPCLASS:(Explore|Cabinet)WClass]")
		$aSeleccion = _WindowsExplorer_ExtractSelectedDirAndFiles($aWinList)
		If @error Then
			MsgBox(16,"Error","Lo siento pero ha ocurrido un error y no he podido hacer mi trabajo")
		ElseIf $aSeleccion[0] = 0 Then
			MsgBox(48,"Meeeeeec","Si no seleccionas nada poco voy a poder hacer",5)
		Else
			_DaleCandela()
		EndIf
	Else
		MsgBox(48,"Lo siento pero...", "para hacer mi trabajo debes estar en una ventana del Explorador de Windows",5)
	EndIf
EndFunc

Func _DaleCandela()
	Local $cuentaAccesos = 0
	$sacandoaccesos = ""

	For $i=2 to UBound($aSeleccion)-1
		If StringRegExp($aSeleccion[$i],".*lnk$",0) = 1 Then
			$sacandoaccesos &= $aSeleccion[$i] & "|"
			$cuentaAccesos += 1
		EndIf
	Next

	If $cuentaAccesos > 0 Then
		$sacandoaccesos = StringSplit(StringTrimRight($sacandoaccesos,1),"|")
			If $sacandoaccesos[0] = UBound($aSeleccion)-2 Then
				$cuentaAccesos = 0
				_Finiquitando()
			Else
				MsgBox(32,"Informativo","No todos los ficheros seleccionados son accesos directos pero trabajaré con el resto",3)
				$cuentaAccesos = 0
				_Finiquitando()
			EndIf
	Else
		MsgBox(48,"Puede que sea yo pero...","no has seleccionado ningún acceso directo",5)
		Return
	EndIf
EndFunc

Func _Finiquitando()
	For $i=1 to $sacandoaccesos[0]
		Local $original=FileGetShortcut($sacandoaccesos[$i])
		If IsArray($original) Then
			If Not StringInStr(FileGetAttrib($original[0]),"D") Then ;Evito copiar directorios
				$destino=StringRegExpReplace($sacandoaccesos[$i],"^(.*\\)(.*)$","$1")
				FileCopy($original[0],$destino)
					If @error Then
						Msgbox(16,"Error copiando","Ha ocurrido un error copiando el siguiente fichero " & @CRLF & $original[0] & @CRLF & @CRLF & "en el directorio:" & @CRLF & $destino)
					Else
						;FileDelete($sacandoaccesos[$i])
						FileMove($sacandoaccesos[$i],$destino & "sandbox-cambiazo\",8)
					EndIf
			Else
				Msgbox(48,"Lo siento pero...","uno de los accesos directos apunta a este directorio y no voy a copiarlo:" & @CRLF & $original[0],5)
			EndIf
		EndIf
	Next
EndFunc

Func _Salir()
	MsgBox(64,"Bye bye","Saliendo de Cambiazo",1)
	Exit 0
EndFunc

Func _WindowsExplorer_ExtractSelectedDirAndFiles($hWnd)
    Local $aExplorerSelectedFiles[2] = [0, ""]
    If Not IsHWnd($hWnd) Then Return SetError(1, 0, $aExplorerSelectedFiles)
    Local $aWinList = WinList("[REGEXPCLASS:(Explore|Cabinet)WClass]")
    While 1
        For $i = 1 To UBound($aWinList) - 1
            If $hWnd = $aWinList[$i][1] Then ExitLoop 2
        Next
        Return SetError(2, 0, $aExplorerSelectedFiles)
    WEnd
    Local $oShellApp = ObjCreate("Shell.Application")
    If Not IsObj($oShellApp) Then Return SetError(3, 0, $aExplorerSelectedFiles)
    Local $oShellApp_Windows = $oShellApp.Windows()
    If Not IsObj($oShellApp_Windows) Then Return SetError(4, 0, $aExplorerSelectedFiles)
    For $oShellApp_Inst In $oShellApp_Windows
        If $oShellApp_Inst.hwnd = $hWnd Then ExitLoop
    Next
    Local $iShellApp_Inst_SelectedItems_Count = $oShellApp_Inst.Document.SelectedItems.Count
    Local $sShellApp_Inst_LocationURL = $oShellApp_Inst.LocationURL
    Local $aRet = DllCall('shlwapi.dll', 'long', 'PathCreateFromUrlW', 'wstr', $sShellApp_Inst_LocationURL, 'wstr', '', 'dword*', 65534, 'dword', 0)
    If Not @error And $aRet[0] = 0 Then $sShellApp_Inst_LocationURL = $aRet[2]
    $aExplorerSelectedFiles[0] = $iShellApp_Inst_SelectedItems_Count
    $aExplorerSelectedFiles[1] = $sShellApp_Inst_LocationURL
    ReDim $aExplorerSelectedFiles[$aExplorerSelectedFiles[0] + 2]
    $oShellApp_Inst_SelectedItems = $oShellApp_Inst.Document.SelectedItems
    Local $iCounter = 2
    For $oShellApp_Inst_SelectedItem In $oShellApp_Inst_SelectedItems
        $aExplorerSelectedFiles[$iCounter] = $oShellApp_Inst_SelectedItem.path
        $iCounter += 1
    Next
    $oShellApp = 0
    $oShellApp_Windows = 0
    $oShellApp_Inst = 0
    $oShellApp_Inst_SelectedItems = 0
    $oShellApp_Inst_SelectedItem = 0
    Return $aExplorerSelectedFiles
EndFunc   ;==>_WindowsExplorer_ExtractSelectedDirAndFiles