Outro Script para mover pasta

[StyleReset]

Galera alguém sabe me dizer se tem como criar um script .bat ou tenha algum programa que faça a função de mover pasta que contém somente 1 arquivo dentro

 

 

Exemplo tenho uma pasta com 200 mil subpastas e queria saber fazer um filtro com esse script para retirar todas pastas que contém somente 1 arquivo dentro de cada subpastas para uma outra pasta é possível?

[Midori]

@StyleReset  Veja se é isto, faça um teste,

 

Save como vbs e crie a pasta com o nome PASTA_DESTINO.

 

O script vai mover as pastas com apenas um arquivo do diretório em que for executado para a sub PASTA_DESTINO.

 

Dim oFso
Dim oSubPasta
Dim sPastaAtual
Dim sPastaDestino

sPastaDestino = "PASTA_DESTINO"

Set oFso = CreateObject("Scripting.FileSystemObject")
sPastaAtual = oFso.GetFile(WScript.ScriptFullName).ParentFolder & "\"

For Each oSubPasta In oFso.GetFolder(sPastaAtual).SubFolders
    If oSubPasta.Files.Count = 1 And oSubPasta.Name <> sPastaDestino Then
        oSubPasta.Move sPastaAtual & sPastaDestino & "\"
    End If
Next