zcdyj

15# powerbat


不是 保留目录结构 我想实现的功能和上面一样 这次是对一个大文件夹下的所有子文件夹批量操作 使得子文件夹里的子文件里头的文件夹和文件移动到子文件夹里

powerbat

先复制再删除不太好，要创建新文件，如果文件很多很大，影响性能。
而本来Windows系统在同一个驱动器之间移动文件几乎没有什么操作，更不用创建新文件（当然不同驱动器之间移动确实是先复制再删除）。
不如用vbs

folderPath = "E:\1"
subfldName = "2"
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile folderPath & "\" & subfldName & "\*", folderPath & "\"
fso.MoveFolder folderPath & "\" & subfldName & "\*", folderPath & "\"
复制代码

zcdyj

17# powerbat


感谢powerbat的代码 VBS的思路很不错 你的代码改成相对路径怎么不成功啊？
如果我有一个123456的大文件夹 里面有很多的需要处理的1文件夹（任意名称的）， 这样的VBS怎样修改？

powerbat

要使用相对路径把folderPath的值改成"."或其他正确的相对于脚本的路径

folderPath = "E:\123456"
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folders = fso.GetFolder(folderPath).SubFolders
for each oFolder in Folders
    fso.MoveFile oFolder.Path & "\*", folderPath & "\"
    fso.MoveFolder oFolder.Path & "\*", folderPath & "\"
    if 0=oFolder.Files.Count and 0=oFolder.SubFolders.Count then
        oFolder.Delete true
    else
        WScript.Echo oFolder.Path & "中的某些文件（夹）移动失败"
    end if
next
WScript.Echo "Done"
复制代码

yjstone

将zm900612兄的代码修改一下就可以了，下面的代码在你给出的示例文件夹中测试通过，只要将代码分别放到示例文件夹123456里的1和3的文件夹里运行就OK了，并且具有通用性，只要你的文件结构符合你所说的要求就能行，而且两个要求都能符合（其实是一样的）。

@echo off
for /d %%a in (*) do (   
for /f "delims=" %%b in ('dir /a /b "%%a"') do attrib -s -h "%%b"&&move /y "%%a\%%b" .\
rd "%%a"
)
pause
复制代码

zcdyj

20# yjstone


恩 放在1和3的文件夹里测试通过 不知道为什么有个错误提示，我是想把它放在123456的文件夹里这样就不用在每个子目录都要放一个这样的文件了，不知这样该如何修改？

yjstone

简单啦，把批处理放在123456文件夹，连续运行，每运行一次就会减少一级目录，直到你满意为止。至于错误提示估计是这一句：attrib -s -h %%a 。我忘记加双引号了，当遇到有空格的文件或文件夹时报错，已在原代码加上了。

zcdyj

22# yjstone


感谢yjstone 可能你误解了我的意思 我是想让保持一级目录文件夹名的基础上把二级目录的东东移动到一级目录 并把二级目录的文件夹删除

yjstone

我估计你是想保留123456目录下的一级子目录下的目录和文件，然后在123456目录下运行批处理来达到上面你所说的目的吧，那试试下面的代码：

@echo off
for /d %%a in (*) do (
pushd "%%a"
for /d %%b in (*) do (   
for /f "delims=" %%c in ('dir /a /b "%%b"') do attrib -s -h "%%c"&&move /y "%%b\%%c" .\
rd "%%b"
)
popd 
)
pause
复制代码

zcdyj

24# yjstone


恩 你的代码我测试了 完美实现我想要的功能 奇怪的是有个错误提示  提示 找不到文件 这个该如何修改？

Batcher

25# zcdyj


@echo off删掉，看看哪一步报错的。