Bat Criar Script para mover arquivos para pastas que contenham as mesmas partes do n

[Felipe S Cordeiro]

Bom dia!

Preciso de ajuda para criar um script pode ser em bat que faça o seguinte: Preciso copiar o arquivo "2222-teste-042022.jpeg" para a pasta "2222", arquivo "1111-teste-052022.jpeg" para a pasta "1111"....e assim por diante. 

Exemplo: Se NomeNumOrigem = NumPastaDestino > move o arquivo para esta pasta.

Precisa reconhecer apenas os numeros do inicio do arquivo e o nome da pasta de destino, essa é minha dificuldade.

Desde já agradeço!

[ricardo_br]

@Felipe S Cordeiro se existem os arquivos "2222-teste-042022.jpeg" e "2222-teste-052022.jpeg". Ambos devem ser movidos para a mesma pasta "2222"?

 

Veja se o código que o usuário lo-ol postou no pt.stackoverflow atende suas necessidades...

[Felipe S Cordeiro]

12 minutos atrás, ricardo_br disse:

@Felipe S Cordeiro se existem os arquivos "2222-teste-042022.jpeg" e "2222-teste-052022.jpeg". Ambos devem ser movidos para a mesma pasta "2222"?

 

Veja se o código que o usuário lo-ol postou no pt.stackoverflow atende suas necessidades...

O arquivo que começar com o numero 2222-teste-042022.jpeg vai pra pasta 2222, se tiver 10 arquivos com o inicio 2222, ele move pra mesma pasta, se começar com 1111-test.... ele move pra pasta 1111

@ricardo_br Foi eu que postei o codigo, mas ele só move o arquivo, se o nome inteiro for igual o da pasta.

[ricardo_br]

Não eu não tô falando do código que você postou o usuário lool postou outro código nos comentários esse: https://pastebin.com/QbjLAeaQ

[Felipe S Cordeiro]

@ricardo_br Cara, valeu, esse deu certo, vou só da uma implementada nele, mas é isso mesmo que preciso.. Mais uma vez valeu demais.

[Basole]

Mesmo atendendo demanda, segue sugestão em vbscript:

 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\temp") ' Altere o local dos arquivos

For Each objfile In objFolder.Files
    
If InStr(1, objfile.Name, ".jpg", vbTextCompare) > 0 Then
    strPartName = Left(objfile.Name, 4)
    
    strFolderPath = objFolder & "\" & strPartName & "\"  ' Altere o caminho das pastas

    If Not objFSO.FolderExists(strFolderPath) Then
        Set objFolder2 = objFSO.CreateFolder(strFolderPath)
    End If
       
     objFSO.Movefile objfile, strFolderPath
     End If
Next

 

Copie e cole,  no bloco de notas e salve com a estensão  *.vbs

 

 

[Felipe S Cordeiro]

 

 O seu der certo nos dois windows, show demais... valeu meu parceiro.