How to open folder ?!

viktorijakup

Hi !!!

This script must open folder, and I must view empty opened folder...!!!
I work in "Far manager".

Now this script only create folder...

Expand|Select|Wrap|Line Numbers

  
@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_qc';

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);

chdir $to_file;

exit 0;
 
__END__

:endofperl

Regards !!!

Viki

nithinpes

If you want to physically open the folder (get the view of folder contents), use:

Expand|Select|Wrap|Line Numbers

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

Else, if you want to open the folder to read its contents(files) inside Perl script, use opendir() command.

Expand|Select|Wrap|Line Numbers

 
opendir(DIR,"$to_dir") or die "failed to open:$!";

while(<DIR>) { # read through contents of folder

viktorijakup

Hi !!!

Thank you for answer !!!

Expand|Select|Wrap|Line Numbers

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

I need the same opening folder in "Far manager".

:)

Regards !!!

Viki

If you want to physically open the folder (get the view of folder contents), use:

Expand|Select|Wrap|Line Numbers

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

Else, if you want to open the folder to read its contents(files) inside Perl script, use opendir() command.

Expand|Select|Wrap|Line Numbers

opendir(DIR,"$to_dir") or die "failed to open:$!";

while(<DIR>) { # read through contents of folder

numberwhun

I don't know about anyone else, but I have no idea what "Far Manager" is and have never heard of it. If it is an external program, then that is up to you to figure out. Otherwise, please explain what your needs are a little clearer.

Regards,

Jeff

nithinpes

I do not know about "Far Manager" either. However, if you know of a method to open a file/folder in Far manager through command prompt, then you should be able to do it using the same command inside system() in your script.

KevinADC

I have a funny feeling he means File Manager.....

Icecrack

hey guys,

http://www.farmanager.com/

if its in the default then its should be

Expand|Select|Wrap|Line Numbers

system(`c:\program files\far\far.exe`);

KevinADC

looks like the old DOS interface I used to work with more than 15 years ago.

Icecrack

just to help this fella out i thought ill put in some command line argv

Expand|Select|Wrap|Line Numbers

  /?   This help.

 /a   Disable display of characters with codes 0 - 31 and 255.

 /ag  Disable display of pseudographics characters.

 /8   Forces FAR to work in ANSI (non-Unicode) console.

 /e[<line>[:<pos>]] <filename>

      Edit the specified file.

 /i   Set small (16x16) icon for FAR console window.

 /p[<path>]

      Search for "common" plugins in the directory, specified by <path>.

 /co  Forces FAR to load plugins from the cache only.

 /rc  Restore console windows settings upon exiting FAR.

 /u <username>

      Allows to have separate settings for different users.

 /v <filename>

      View the specified file. If <filename> is -, data is read from the stdin.

 /x   Disable exception handling.

How to open folder ?!

Post your reply

Similar topics

Question stats

	Ask Question
Home Questions Articles Browse Topics Latest Top Members FAQ