Copy a file (Perl)

This code can be found in Chapter 8 of Windows XP Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# From the book "Windows XP Cookbook"
# ISBN: 0596007256

# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strComputer = '.';
$strCurrentFile = '<CurrentFilePath>';
# Path to existing file or folder
$strNewFile = '<NewFilePath>';
# Path to copy file or folder
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$objFile = $objWMI->Get('Cim_Datafile=\'' . $strCurrentFile . '\'');
print "Copying $strCurrentFile to $strNewFile\n";
$intRC = $objFile->Copy($strNewFile);
if ($intRC != 0) {
    print 'There was an error copying the file: ' . $intRC, "\n";
}
else {
    print "File copy successful\n";
}

This code has been viewed 1888 times.

New from the creators of TechTasks.com: StatSheet.com