如何在出现确认提示后删除 SVN 目录？

Question

我希望能够从目录中删除 .SVN 文件夹。

我发现以下注册表黑客可以让您做到这一点...

http://weblogs.asp.net/jgalloway/archive/2007/02/24/shell-command-remove-svn-folders.aspx

然而，我不喜欢这个解决方案的是它根本不提供任何确认。我希望它执行此 cmd 脚本的操作，但首先会收到确认提示。

有什么想法吗？

编辑 我的理解是 SVN Export 不会复制未版本化的文件。这就是我提出这个要求的原因。

赛斯

Answer 1

您可以使用 Subversion 命令行并运行 svn export 如果您使用 TortoiseSVN，则可以使用 这个。

Answer 2

尝试对脚本进行此修改。它在运行目录删除之前添加一个提示：

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\DeleteSVN]
@="Delete SVN Folders"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\DeleteSVN\command]
@="cmd.exe /c \"TITLE Removing SVN Folders in %1 && COLOR 9A && choice /m "Remove SVN folder" && if ERRORLEVEL 2 goto done && FOR /r \"%1\" %%f IN (.svn) DO RD /s /q \"%%f\" && :done \""

Answer 3

删除隐藏在该脚本中的 RD 命令上的 /q 选项。

这应该会导致每次调用 rd （删除目录）时询问...

但同时，我会问为什么你不使用 svn 导出选项。

Answer 4

如果将脚本的内容放入 cmd 文件，然后设置注册表以使其指向该 cmd 文件会怎么样？然后，您可以添加各种操作，例如 Wikipedia 中的示例。我希望这可以帮助您创建解决方案。

Answer 5

如果你完全使用 Perl，这里有一个我用来执行此操作的小脚本，再加上取出其他目录类型（对于 /bin 等很方便，来自 VS）：

#!/usr/local/bin/perl -w
#-------------------------------------------------------------------------------
# removedirs.pl - Recursively removes directories from a given root folder
# Author: Nick Gotch
# Date: 07-13-2009
#-------------------------------------------------------------------------------
use strict;
use warnings;
use File::Path;

#-------------------------------------------------------------------------------
# User Setting Variables
#-------------------------------------------------------------------------------
my $basepath = 'C:\\Path\\to\\RootDir\\';

#-------------------------------------------------------------------------------
# Processing
#-------------------------------------------------------------------------------
# Prompt for Confirmation
syswrite(STDOUT, "Confirm removal of directories?\nPress 'Y' to confirm.\n");
$confirm = <STDIN>;
if($confirm =~ /^[Yy]$/)
{
    # Add lines here to remove other dirs...
    RemoveDir($basepath, ".svn");
    syswrite(STDOUT, "Done.\nPress <ENTER> to close.\n");
}
<STDIN>;

sub RemoveDir
{
    my ($directory, $dirtodelete) = @_;

    if(-e $directory.'\\'.$dirtodelete.'\\')
    {
        rmtree($directory.$dirtodelete.'\\');
        syswrite(STDOUT, "Removed: ".$directory.$dirtodelete.'\\'."\n");
    }

    opendir(DIR, $directory);
    my @subdirlist;

    while(my $subdir = readdir(DIR))
    {
        if(($subdir ne '.') && ($subdir ne '..') && (-d $directory.$subdir))
        {
            push(@subdirlist, $directory.$subdir.'\\');
        }
    }

    closedir(DIR);

    foreach my $subdir (@subdirlist) { RemoveDir($subdir, $dirtodelete); }
}

Answer 6

尝试使用 Powershell 命令获取 reg 值：

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command "& {if ((read-host '确认删除 .SVN 文件夹。按 Y 或N') -eq 'y') { Get-ChildItem '%1' -r *.svn | ?{$_.PSIsContainer} | 删除项目 -r -force -verbose -ea 0;退出' }}"

如果您不想看到文件被删除，请删除 -verbose。