Mover archivos con nombres distintos

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.

Moderator: Flipeador

Epo
Posts: 3
Joined: 16 Sep 2022, 03:41

Mover archivos con nombres distintos

18 Feb 2024, 16:22

Hola, necesito remover una serie de archivos dentro de una misma carpeta y que comparten con otros extension pero distintos nombres.
Haber si me hago entender. tengo estos tres tipos de archivo pero son mas de 100 archivos de cada por carpeta.

4 in 1 Row (Europe)-image.png
4 in 1 Row (Europe)-marquee.png
4 in 1 Row (Europe)-thumb.png

quiero remover de esa carpeta los archivos "-marquee.png" para ponerle otros mismo nombre pero distintos...he generado esto pero no me funciona. me falta seguramente como llamar solo a esos nombres...si tuvieran extension distinta si se podria seleccionar con *.png...pero al ser todos .png no es la solucion y con *-marquee.png no los remuevo.

Code: Select all

FileMove, ..\..\roms\o2em\*-marquee.png, ..\..\roms\o2em\logo cristal\*-marquee.png, R

;; ========================================================

sleep, 500

ExitApp
Sabrias como hacerlo?

Muchas gracias por vuestros comentarios. Saludos cordiales.

[Mod edit: + [code][/code] tags.]
garry
Posts: 3771
Joined: 22 Dec 2013, 12:50

Re: Mover archivos con nombres distintos

29 Feb 2024, 15:29

FileMove > "-marquee.png"

Code: Select all

#Requires AutoHotkey v1.1
#warn
#singleinstance,force
setworkingdir,%a_scriptdir%
;searchfor:="ブンガワンソロ"
searchfor:="-marquee.png"
FD1:="D:\_A1"   ; source
FD2:="D:\_A2"   ; destination
If !FileExist(fd2)
	FileCreateDir,%fd2%
e1:="",e2:=""
Loop,Files,%FD1%\*.png , R 
{
If InStr(A_LoopFileName,searchfor)
   {
   new:=fd2 . "\" . a_loopfilename
   filemove,%A_LoopFileFullPath%,%new%
   	if (ErrorLevel)
	    {
		MsgBox, 4096, File Move Error, % A_LoopFileLongPath
		e2 .= A_LoopFileLongPath . "`r`n"
		continue
		}
   e1 .= new . "`r`n"
   }
}   
msgbox,MOVED FROM`n-%fd1%`n>%fd2%`n---------`n%e1%`n-----------`nERROR=`n%e2%
try,run,%fd2%
e1:="",e2:=""
exitapp
;---------------
esc::exitapp
;=====================================================

Return to “Pedir Ayuda”

Who is online

Users browsing this forum: No registered users and 59 guests