重命名没有旧文件夹的文件夹 #/usr/bin/perl 使用文件：：复制； 使用File:：Copy:：Recursive； $old_folder=$ARGV[0]； $new_folder=$ARGV[1]； $folder_loc=$ARGV[2]； 打印“内容类型：文件夹重命名\n\n”； #重命名（$arg1，$arg2）|打印“没有重命名权限。”； File:：Copy:：Recursive:：dircopy（$folder_loc/$old_folder“，“$folder_loc/$new_folder”）； 打印“重命名完成！”； 出口

这里我的旧文件夹在文件夹重命名后也存在。如何在重命名后删除旧文件夹。请帮帮我

你可以用它来删除整个目录树（包括文件）。

我想你应该用它来代替

dircopy

谢谢很多宏，还有一件事，我的文件大小大约是1.2gb，所以重命名它需要25分钟的时间。有什么方法可以减少时间吗。@野餐4U:不客气！关于您的附加问题：我假设您有一个大小约为1.2GB的目录，其中包含多个文件和子目录。在这种情况下，磁盘访问时间限制了性能，对此您无能为力。另一种选择是，假设您的程序在linux上运行，则使用linux

mv

命令，您可以使用从perl调用该命令。@macroS:i使用windows系统。所以对我来说suggestion@picnic4u：我这里没有要测试的Windows计算机，但您可以使用perl中的

system（）

调用Windows/DOS命令，例如

move

或

xcopy

+

delete

。也许你可以在测试目录上试试。

#!/usr/bin/perl

use File::Copy;
use File::Copy::Recursive;

$old_folder=$ARGV[0];
$new_folder=$ARGV[1];
$folder_loc=$ARGV[2];

print "Content-type:folder rename\n\n";

#rename($arg1,$arg2) || print "Don't have permission to rename.<br><br>";
File::Copy::Recursive::dircopy("$folder_loc/$old_folder","$folder_loc/$new_folder");

print "Renaming Done!";

exit;