Ir ao conteúdo
  • Cadastre-se

Outro Script para mover pasta


Posts recomendados

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?

Link para o post
Compartilhar em outros sites

@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

 

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora


Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!