Re^7: perl tk widget will not copy files

I found a problem with this some time ago Win 8.1 Perl 5.16.1

#!perl
use strict;
use Win32::OLE::Const 'Microsoft Excel';
Win32::OLE->Option(Warn => 3);

my $ex = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');
        

my $wb = $ex->Workbooks->Open('c:/temp/Book1.xls') ; 
my $ws = $wb->sheets(1);
my $cell = $ws->Cells(7,2); # b7
$cell->Borders(7)->{LineStyle}  =  xlNone; #left

# save and exit
# this works
$wb->SaveAs( 'c:\\temp\\changedborder.xls' );

# this gives error
#$wb->SaveAs( 'c:/temp/changedborder.xls' );

#C:\//' cannot be accessed. The file may be corrupted, located on a se
+rver
#that is not responding, or read-only.
#in32::OLE(0.1709) error 0x800a03ec
#   in METHOD/PROPERTYGET "SaveAs" at borders.pl line 16.
[download]

poj

Comment on Re^7: perl tk widget will not copy files Download Code

Replies are listed 'Best First'.
Re^8: perl tk widget will not copy files by GrandFather (Saint) on Aug 12, 2015 at 09:50 UTC
That's an Excel problem, not a Perl problem. The Windows system generally doesn't care about \ or /, but applications are often not as forgiving. Premature optimization is the root of all job security	[reply]