Extraer archivos de subdirectorios
Publicado: 2009-06-14 15:47 @699Hi!
El code de mi programa es así:
Como verán trato de extraer todos los archivos de los archivos temporales de Internet pero están divididos en muchas carpetas y no sé cómo pasar a través de ellas e ir extrayendo todos los archivos pasándolos a mi zip.
¿Alguien me dice cómo lo hago?
El code de mi programa es así:
Using perl Syntax Highlighting
use Archive::Zip;
my $admin = Win32::LoginName();
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
chdir "C:\\Docume~1\\Administrador\\Config~1\\Archivos temporales de Internet";
@fotos = ();
foreach $localuser (<*>) {
push(@fotos, "$localuser");
}
foreach $imagenes(@fotos) {
my $file_member = $zip->addFile($imagenes);
}
# Save the Zip file
unless ( $zip->writeToFileNamed('c:/cagatron2.zip') == AZ_OK ) {
die 'write error';
}
my $admin = Win32::LoginName();
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
chdir "C:\\Docume~1\\Administrador\\Config~1\\Archivos temporales de Internet";
@fotos = ();
foreach $localuser (<*>) {
push(@fotos, "$localuser");
}
foreach $imagenes(@fotos) {
my $file_member = $zip->addFile($imagenes);
}
# Save the Zip file
unless ( $zip->writeToFileNamed('c:/cagatron2.zip') == AZ_OK ) {
die 'write error';
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Como verán trato de extraer todos los archivos de los archivos temporales de Internet pero están divididos en muchas carpetas y no sé cómo pasar a través de ellas e ir extrayendo todos los archivos pasándolos a mi zip.
¿Alguien me dice cómo lo hago?