The objective is to get/set the creation time for a file.
$get_time->Call($fh,$create_time, $access_time, $write_time); #Get
file times
print Win32::FormatMessage(Win32::GetLastError()),"\n";
Needs a file handle as first argument
Keep getting "The handle is invalid" on every attempt
open FILE,"<$filename" or die "can't open\n";
doesn't work
$fh = new IO::File $filename, O_WRONLY|O_APPEND;
doesn't work
my $OpenFile = new Win32::API("kernel32", "OpenFile", [P, P, N ], V); #
$fh=$OpenFile->Call($filename,$buff,O_WRONLY);
doesn't work (doesn't error, either, but no handle(?))
Tried unpack in a couple of ways on the last one, no joy.
Anybody got an example of this? What am I missing?
Rob
