how to search Computer for Specific File Types and add

[Robert Bateman]

string $path = "C:/somePath/" ;
string $files[] = `getFileList -fld $path -fs "*.jpg"`;

for( $file in $files )
{
$fullPath = $path + $file;
print($fullPath + "\n"); // insert into GUI item instead...
}

[ScottyDoesntKnow]

Thanks for the reply.

[cpan]

or if there are subdirectories, i've wrote a procedure several years ago to find all the files of a specific type:

proc string[] getDirs(string $cale, string $type){
string $allDirs[] = `getFileList -fld $cale`;
string $returnVal[];

for ($dir in $allDirs){
if (`filetest -d ($cale + $dir + "/")`) {
$returnVal[size($returnVal)] = $dir;
}
else {
string $buffer[];
tokenize $dir "." $buffer;
if ($buffer[size($buffer)-1] == $type)
$returnVal[size($returnVal)] = $dir;
}
}
return $returnVal;
}

proc getFiles2(string $cale, string $type, string $return[]){
string $dirs[] = getDirs($cale, $type);
for ($dir in $dirs){
if (`filetest -f ($cale + $dir)`) $return[size($return)] = ($cale + $dir);
else{
getFiles2(($cale + $dir + "/"), $type, $return);
}
}
}

global proc string[] getFiles(string $cale, string $extension){

string $returnVal[];
getFiles2($cale, $extension, $returnVal);
return $returnVal;
}

{
string $cale = "C:/";
$s = `timerX`;
string $files[] = getFiles($cale, "jpg");
$e = `timerX -st $s`;
print (size($files) + " fisiere in " + $e + " secunde");
}

[CGTalk Moderation]

This thread has been automatically closed as it remained inactive for 12 months. If you wish to continue the discussion, please create a new thread in the appropriate forum.