Question

如何用BAT VBS把某文件夹中的终极子目录移动到第2级或者第三级目录下

如何把某文件夹中的终极子目录移动到第2级或者第三级目录下
AAAA1/B1/C1/D1
D1移动到B1下面
AAAA2/B2/C2/D2/32/F2
F2移动到B2下面

AAAA2/B2/C2/D2/32/F3
F3移动到B2下面

ddd2/d2/e2/F3
F3移动到d2下面 名字命名F3_1（就是重命名重复，命名方法不限）
如果文件夹有重名的改下名字加_1

Answer 1

代码来了哦!VBS代码来的:

On Error Resume Next
Dim FSO,I,WdPos,Folder,Fol,FolName,FN,NFol
Folder="这里输入文件夹路径"
'输入文件夹路径↑
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Folder=FSO.GetFolder(Folder).Path
If FSO.FolderExists(Folder)<>True Then
    MsgBox "文件夹" & Folder & "不存在!",16,"错误"
    WScript.Quit
End If
WdPos=1
For I=1 To 2 '文件夹级数(从文件夹所在驱动器开始算第一级)
    WdPos=InStr(WdPos+1,Folder,"\")
Next
Fol=Mid(Folder,1,WdPos)
If Right(Fol,1)<>"\" Then Fol=Fol & "\"
'保证文件夹名合法
FolName=FSO.GetFolder(Folder).Name
FN=FolName
I=0
Do Until Not FSO.FolderExists(Fol & FolName)
    I=I+1
    FolName=FN & "_" & I
Loop
'loop
NFol=Fol & FolName
FSO.CreateFolder NFol
'//
Dim vFile,vFol
For Each vFile In FSO.GetFolder(Folder).Files
    FSO.CopyFile vFile.Path,NFol & "\"
Next
'复制文件
For Each vFol In FSO.GetFolder(Folder).SubFolders
    FSO.CopyFolder vFol.Path,NFol & "\"
Next
'复制文件夹
FSO.DeleteFolder Folder
MsgBox "成功!",64,"提示"