Script, Checking To See If Folder Exist -- If Not Create That Folder

[Lamont1701]

Hello People,

I need a Windows 2003, Perl 5 Script that will check to see if a Folder exist, and if the Folder does not exist, then create that Folder. (If the Folder does exist, then do nothing.)

I know nothing about Perl 5 yet, but I have a script running now that needs attention, like yesterday!


Is it possible for someone to help me?

[uthus]

Hi,

$filename = "/users/abc123/text.txt"; 
 
if(-e $filename){ 
 
  print "File exists."; 
 
} else {

  mkdir ($filename);

}

This should work. You'd just need to change the path to c:\whatever\ (or d:, e:, etc.)

HTH

U