my $filetime = Win32::FileTime->new($file);
my @CreateTime = $filetime->Create (@year, month, day, hour, minute);