0

Hi !!!

This script create folder.
I need what this script create and open created folder.
What I must add in this script...??!

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl
use warnings;
use strict;
use File::Path;
use Cwd;
use File::Copy;
use File::Spec::Functions;
#hardcoded 
my $FP = 'Y:\graphics_qs';
my $TP = 'Y:\plot_db';
my ($from_file, $to_file) = ($ARGV[0], $ARGV[0]);
my $cwd = `cd`;
chomp $cwd;
my ($from_dir, $to_dir) = ($cwd, $cwd);
#rename dir part
$to_dir =~ s/^\Q$FP\E/$TP/;
mkpath($to_dir);
exit 0;

__END__
:endofperl

Regards !!!

Viki

2
Contributors
3
Replies
4
Views
8 Years
Discussion Span
Last Post by KevinADC
0

Hi !!!

system("start $to_dir"); # this will open folder in win explorer

But I need the same in "Far manager".

:)

0

Like everyone already told you on the other forum, nobody knows what Far Manager is. I"ve never heard of it either.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.