Help for this page

Select Code to Download


  1. or download this
    my $filetime = Win32::FileTime->new($file);
    my ($year,$month,$day,$hour,$minute) = 
        $filetime->Create (qw[year month day hour minute]);