将相同的文件复制到不同的目录

Question

是否有一个程序（或 ReNamer 或 .cmd 的代码）将文件 readme.txt 复制到与 readme.txt 相同的目录中的每个目录？

ReNamer：http://www.den4b.com/?x=products&product=renamer（有一个 PascalScript 规则，让用户可以编写自己的重命名规则。）

我每天从工作中获得超过 50 个新目录，它们都需要在其中的这个文件。我手动做了1000多个，希望有解决办法。

谢谢！

Answer 1

在批处理脚本中试试这个：

@echo off &setlocal
set "startdir=X:\start\folder"
for /d /r "%startdir%" %%i in (*.*) do copy readme.txt "%%~i"
endlocal

Answer 2

@echo off
FOR /R %%f in (.) DO xcopy readme.txt %%f

您将 .bat 文件保存在与 readme.txt 相同的位置，并且子目录必须与 readme.txt 位于同一文件夹中： 即

Desktop
    readme.txt 
    name.bat
    Sub1
    Sub2
    Sub3

等等……

Answer 3

下面是ReNamer 的 PascalScript 代码，它将在每个已处理的文件夹中创建一个 Readme.txt 文件。

该脚本在预览期间执行，因此为了安全起见，每次预览时它都会询问您是否创建Readme.txt。该脚本使用ReadmeText 常量作为内容，但也可以从系统上的文件复制Readme.txt 文件的内容。如果一个文件尚不存在，它只会创建一个 Readme.txt 文件。将所有文件夹放入 ReNamer 并使用此脚本。

const
  ReadmeName = 'Readme.txt';
  ReadmeText = 'Content of Readme file goes here!';
var
  Initialized: Boolean;
  ReadmePath: WideString;
  DoCreateReadmeFile: Boolean;
begin
  if not Initialized then
  begin
    Initialized := True;
    DoCreateReadmeFile := DialogYesNo('Create Readme file this time?');
  end;
  if WideDirectoryExists(FilePath) then
    ReadmePath := WideIncludeTrailingPathDelimiter(FilePath)
  else
    ReadmePath := WideExtractFilePath(FilePath);
  ReadmePath := ReadmePath + ReadmeName;
  if DoCreateReadmeFile and not WideFileExists(ReadmePath) then
    FileWriteContent(ReadmePath, ReadmeText);
end.

编辑

下面的脚本将获取SourceFilePath 定义的源文件并将其复制到目标文件夹。如果源文件不存在，它也会警告你。

const
  TargetFileName = 'Readme.txt';
  SourceFilePath = 'C:\Temp\Readme.txt';
var
  Initialized: Boolean;
  TargetFilePath: WideString;
  DoCreateFiles: Boolean;
begin
  if not Initialized then
  begin
    Initialized := True;
    if WideFileExists(SourceFilePath) then
      DoCreateFiles := WideDialogYesNo('Create "'+TargetFileName+'" files this time?')
    else
      WideShowMessage('Source file does not exist!'+#13#13+SourceFilePath);
  end;
  if WideDirectoryExists(FilePath) then
    TargetFilePath := WideIncludeTrailingPathDelimiter(FilePath)
  else
    TargetFilePath := WideExtractFilePath(FilePath);
  TargetFilePath := TargetFilePath + TargetFileName;
  if DoCreateFiles and not WideFileExists(TargetFilePath) then
    WideCopyFile(SourceFilePath, TargetFilePath, False);
end.