2 respuestas en este tema

[charlie_spiel]

hola, espero que me puedan orientar.. lo que pasa es que tengo una carpeta que tiene videos (*. wmv, *.avi, *.mpg) y en esa misma carpeta tengo imagenes (*.jpeg, *.png)

y entonces quiero hacer un programa con el cual pueda mover los archivos de video (*.wmv, *.avi, *.mpg) a otro directorio..

este es el codigo que llevo..

delphi

procedure TForm1.Button1Click(Sender: TObject);
var lpFileOp: TSHFileOpStruct;
begin
CreateDir('C:\VidResp');
lpFileOp.Wnd := Self.Handle;
lpFileOp.wFunc := FO_MOVE;
lpFileOp.pFrom := PChar('C:\games\snaps\*.wmv' + #0#0);
lpFileOp.pTo := PChar('C:\VidResp\' + #0#0);
lpFileOp.pFrom := PChar('C:\games\snaps\*.mpg' + #0#0);
lpFileOp.pTo := PChar('C:\VidResp\' + #0#0);
lpFileOp.pFrom := PChar('C:\games\snaps\*.avi' + #0#0);
lpFileOp.pTo := PChar('C:\VidResp\' + #0#0);
lpFileOp.fFlags:= FOF_SILENT or FOF_FILESONLY;
lpFileOp.fAnyOperationsAborted := FALSE;
lpFileOp.hNameMappings := nil;
lpFileOp.lpszProgressTitle := PChar('Modificando archivos' + #0#0);
SHFileOperation(lpFileOp);
application.MessageBox('Los videos han sido deshabilitados!!', 'Realizado', MB_ICONINFORMATION);
end;

y entonces el problema que me genera es el siguiente.. de digo que mueva los formatos (*.wmv, *.mpg, *.avi)
y resulta que los unicos archivos que mueve son los *.avi y mi pregunta seria la siguiente..

como le puedo hacer para mover archivos de la extencion que quiera a otro directorio....??
o que codigos me recomendarian usar..??

muchas gracias por su atencion..

[escafandra]

Observa estos cambios:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var lpFileOp: TSHFileOpStruct;
begin
CreateDir('C:\VidResp');
lpFileOp.Wnd := Self.Handle;
lpFileOp.wFunc := FO_MOVE;
lpFileOp.pFrom := PChar('C:\games\snaps\*.wmv' + #0 + 'C:\games\snaps\*.mpg' + #0 + 'C:\games\snaps\*.avi' + 
#0#0);
lpFileOp.pTo := PChar('C:\VidResp\' + #0#0);
lpFileOp.fFlags:= FOF_SILENT or FOF_FILESONLY;
lpFileOp.fAnyOperationsAborted := FALSE;
lpFileOp.hNameMappings := nil;
lpFileOp.lpszProgressTitle := PChar('Modificando archivos' + #0#0);
SHFileOperation(lpFileOp);
application.MessageBox('Los videos han sido deshabilitados!!', 'Realizado', MB_ICONINFORMATION);
end;

Según la documentación de Microsoft, la lista de archivos debe ir, cada archivo separado por un carácter nulo y un doble nulo al final.


Saludos.

[charlie_spiel]

muchisimas gracias.. si, ya se soluciono el problema..