将一个文件复制到同目录下的多个文件夹里面

1. 起动DOS窗口，到4000多个文件夹所在的目录（比如文件夹都在C:\123456\目录下，在dos窗口先输入cd c:\123456，回车），输入命令：
dir /s /b > c:\123.txt
2.起动Excel，菜单：数据-导入外部数据-外部数据
选定123.txt，确认
3.Excel中B1单元格输入公式
="COPY " & A1 & " c:\1111\"
注意用你的目标文件夹替换上面c:\1111\这个内容
4.拖动B1单元格复制公式到所有行。然后将这些行全部选中，Ctrl+C。
5.进入记事本，Ctrl+V，另存为“C:\123.bat”
6.双击123.bat，执行之。

方法2:

Dim sSf
Dim sTarget
Dim sTargetFile

sSf = inputBOX("请输入源文件名","请输入文件名","c:\document\haha168.doc")
sTarget = inputBOX("请输入目标路径","目标路径是指目标路径的文件夹","c:\test\")

'fso.CreateFolder("c:\sd")

Set objFso    = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(sTarget)

For Each objSubfolder in objFolder.Subfolders
    If Right(sTarget,1)="\" Then
        sTargetFile = sTarget & objSubfolder.Name & "\"
    Else
        sTargetFile = sTarget & "\" & objSubfolder.Name & "\"
    End If
    
    objFso.CopyFile sSf,sTargetFile
    
    'msgbox(sTargetFile)
    'msgbox(objSubfolder.Size)
Next


'fso.CopyFile "c:\a.vbs","c:\sd\"

'msgbox("")



以上存为.vbs



方法三:
==================================
@echo off
for /f "delims=" %%i in ('dir /b/ad D:\123 ') do (
xcopy /s D:\文本文件\. "D:\123\%%i\"
)

==================================
注释: D:\123为你的内含N多子文件夹的目标地址
        D:\文本文件\  是你要复制的2个文本文件的哪个文件夹  当然可以有其他类型文件或更多文件...反正是XCOPY

把=========之间的批处理复制拷贝到一个文本文件上,然后把文本文件的后缀名.TXT修改为.BAT  就成为批处理了

[本日志由 wangqian 于 2009-06-03 10:18 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: DOSDOS 文件夹文件夹 公式公式 单元格单元格
相关日志: