Keine Rechte um unter Windows Dateien Umbenennen

[Sasch Nehls]

Hallo,

ich habe ein Perl Script geschrieben, welches mir die Dateien in einem bestimmten Ordner ausliest und anschließend die Dateien umbenennen soll. Ich verwende Win2000 und bin als Admin angemeldet. Trotzdem meldet mir das Perl Script immer "Permission Denied", wenn ich eine Datei umbenennen will?! Gibt es eine alternative?

---- schnipp ----
$zaehler_1=0;
opendir(VERZEICHNIS, "$pfad");
while ($datei = readdir(VERZEICHNIS))
  {
    if ($datei =~ /.jpg$/)
      {
        push @dateien, $datei;
      }
  }
closedir (VERZEICHNIS);

foreach (@dateien)
  {
    $zaehler_1++;
    $tmp = sprintf "bild%03d.jpg\n",$zaehler_1;
    $boolean = rename("$pfad/$_","$tmp");
    print "\nFehler: $!";
  }
---- schnapp ----