Hi
This is what I'm using to find the file. .I still can't delete the
file or replace it with the file I created.
Help pls Thanx
se strict;
use File::Find;
use CGI qw(:standard);
my $query = param("Toetsss");
undef $/;
find( sub
{
return if($_ =~ /^\./);
return unless($_ =~ /Toetsss.txt/i);
stat $File::Find::name;
return if -d;
return unless -r;
open(FILE, "< $File::Find::name") or return;
my $string = <FILE>;
close (FILE);print "$File::Find::name\n"; }, 'c:\Documents and Settings');
