Glenn,
I just tried the following on my machine without any problems:
----------8<----------CMD.EXE ---------->8----------
C:\Temp>dir
Volume in drive C has no label.
Volume Serial Number is 10D3-3414
Directory of C:\Temp
01/24/2003 10:15a <DIR> .
01/24/2003 10:15a <DIR> ..
01/24/2003 10:15a 11,125 pod.html
1 File(s) 11,125 bytes
2 Dir(s) 1,764,372,480 bytes free
C:\Temp>cacls .
C:\Temp Everyone:(OI)(CI)F
C:\Temp>at 12:49 "c:\perl\prj\test3.pl"
Added a new job with job ID = 3
C:\Temp>dir
Volume in drive C has no label.
Volume Serial Number is 10D3-3414
Directory of C:\Temp
01/27/2003 12:49p <DIR> .
01/27/2003 12:49p <DIR> ..
01/24/2003 10:15a 11,125 pod.html
01/27/2003 12:49p <DIR> TEST
1 File(s) 11,125 bytes
3 Dir(s) 1,764,372,480 bytes free
----------8<----------TEST3.PL---------->8----------
use strict;
use warnings;
use File::Path;
my $lspath = "C:\\TEMP\\TEST";
if(!(-e $lspath)) {
&File::Path::mkpath($lspath);
}
__END__
----------8<---------- END ---------->8----------
Would you mind testing this minimal script and see if it works for you? If
it does, maybe you could post your whole script for us to troubleshoot?
Chris
> -----Original Message-----
> From: Glenn Meyer [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 27, 2003 12:33 PM
> To: Philip Morley
> Cc: [EMAIL PROTECTED];
> [EMAIL PROTECTED]
> Subject: Re: Problem creating directories
>
>
>
>
>
>
> Thank you all for your replies....
>
> A little clarification...
> This is for creating the directories on the local machine, not remote.
> Scheduler is running with the System account.
> The drive is C:\ and I have opened it up to Everyone Full
> COntrol and it
> still doesn't work.
> Yes, I have tried specifying the path many different ways with no luck
> except when run manually.
>
> Any other thoughts? I am open to trying most anything. Thank you!!!
>
> Glenn Meyer t/l 631-9100 - [EMAIL PROTECTED]
> Content Hosting Systems Administrator Service Delivery
> Center - South
>
>
>
>
>
> "Philip Morley"
>
> <[EMAIL PROTECTED]>
> To:
> Sent by:
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> cc:
> veState.com
> Subject: Re: Problem creating directories
>
>
>
>
> 02/27/2003 11:17
>
>
>
>
>
>
>
>
>
>
> Is $lspath an absolute path, or relative path? If it is a
> relative path,
> then you will probably need to fully qualify it with drive letter and
> parent directories, i.e. D\\somedir\\somesubdir\\...
>
> Other than that, are you certain the user the AT command is
> running has the
> appropriate permission?
>
> HTH, Phil.
>
>
> |---------+----------------------------------------------->
> | | Glenn Meyer <[EMAIL PROTECTED]> |
> | | Sent by: |
> | | [EMAIL PROTECTED]|
> | | veState.com |
> | | |
> | | |
> | | 27/01/03 17:01 |
> | | |
> |---------+----------------------------------------------->
>
> >-------------------------------------------------------------
> -----------------------------------|
>
> |
> |
> | To: <[EMAIL PROTECTED]>
> |
> | cc:
> |
> | Subject: Problem creating directories
> |
>
> >-------------------------------------------------------------
> -----------------------------------|
>
>
>
>
>
>
>
>
> I am trying to build a script that helps archive data. One
> of the tasks I
> want it to do is to check to see if the directory path exists
> and if not,
> to then create it. The following code works fine everytime
> when running
> the script manually. However, I need to run it from an AT
> command. The
> script appears to work well everytime IF the directory path
> already exists,
> but it will not create the directories on it's own - again,
> this is only
> when run automatically from an AT command - running it
> manually it does
> fine. The Scheduler/Task Scheduler Service is running with the System
> account and the System account does have full permissions to
> create the
> directories.
>
> Here is the snip from the code......
> # If local_retention=yes then copies logs to local_store_path=
> if($options{local_retention} =~ m/yes/) {
> my $lspath = $options{local_store_path};
> if(!(-e $lspath)) {
> &File::Path::mkpath($lspath);
> }
> }
>
>
> Any thoughts? Thank you!!!
>
>
> Glenn Meyer
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
>
>
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may be privileged.
It is intended for the addressee(s) only. Access to this E-mail by anyone else is
unauthorized. If you are not an addressee, any disclosure or copying of the contents
of this E-mail or any action taken (or not taken) in reliance on it is unauthorized
and may be unlawful. If you are not an addressee, please inform the sender immediately.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
