将文件复制到文件夹的所有子文件夹 [英] Copy a file to all subfolders of a folder

问题描述

我需要将test.swf复制到不包含"git"一词的c:/test文件夹的所有子文件夹中

i need to copy test.swf to all subfolders of c:/test folder's that doesn't contain "git" word

只是尝试了类似的方法，但是没有用

just tried something like that but not worked

@setlocal enableextensions enabledelayedexpansion
@echo off
for /r %%a in (.) do
( 
if not x%a:git=%==x%a% do
(
@copy "C:\test.swf" %a > nul
)
)
endlocal

推荐答案

vbscript刚刚做到了

just did it by vbscript

Const SourceDir = "C:\source"
Const TargetDir  = "C:\target\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(TargetDir)
Set colSubfolders = objFolder.Subfolders

Set dosyalarklasor = objFSO.GetFolder(SourceDir)
Set dosyalar = dosyalarklasor.Files


For Each objSubfolder in colSubfolders
    if not instr(objSubfolder.Name,".git") > 0 then
        For Each dosya in dosyalar
        objFSO.CopyFile dosya, TargetDir & objSubfolder.Name & "\"
        Next
    end if 
Next

这篇关于将文件复制到文件夹的所有子文件夹的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！