NOMEAR PASTAS EM LOTE

USUARIO.EXCLUIDOS 16/07/2005 18:58:40
#94493
Gostaria de saber como faço para trocar os nomes das partas em lote. ex:

tenho 700 pastas com nomes variados, quero colocar as pastas com o nome em sequencia, 001,002,003,004,005,006,007, etc...

Tipo deve pegar a quantidade de pastas, eu coloco um numero inicial e ele preenche o resto em seguencia.


Obrigado
USUARIO.EXCLUIDOS 16/07/2005 20:08:08
#94499
Amigo Utilize a (Script Run Time Library) fornecida pela microsoft

é uma Bibliorteca que tem Diversas Funções que irao facilitar sua vida

va em references depois Selecione a Biblioteca

la tem o os comandos pra tudo referente a pasta , Criar , Apagar , Mover , Renomear

Espero ter ajudado


USUARIO.EXCLUIDOS 17/07/2005 10:03:04
#94552 Resposta escolhida
Cara deve ser isso que você está querendo... 
Dim contador as integer
contador = text1.text 'Caixa com o primeiro numero

Function RenomeiaPastas(CaminhoRaiz)
  Dim fso, Raiz, Pasta , TodasPastas
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Raiz = fso.GetFolder(CaminhoRaiz)
  Set TodasPastas = Raiz.SubFolders
  For Each Pasta in TodasPastas
    Pasta.name = right("000" & contador,3) 'Renomeia as pastas para 3 digitos 000
    contador = contador + 1 'Incrementa para proximas pastas
  Next

End Function

e se resolver.. fecha o tópico...[S20]
FELIPEA 17/07/2005 20:55:20
#94608
Aqui a resposta do SIBEM ta certo!
Encerre o tópico se estiver ok aí ;)
JEAN.JEDSON 18/07/2005 07:24:51
#94625
apenas verifique antes se não existe nenhuma pasta com um nome que vc irá criar, como por exemplo já existir a pasta 001, o que ocasionaria um erro.
USUARIO.EXCLUIDOS 18/07/2005 08:33:02
#94633
e como posso fazer isso também com os arquivos de imagem, ex: jpg, gif, png, bmp, etc... ?

Obrigado pela ajuda pessoal !!!
USUARIO.EXCLUIDOS 18/07/2005 20:34:02
#94806
cara... mesma coisa... só usar a collection de files... completasso agora.. hehehe

Private Sub Command1_Click()
Call RenomeiaArquivos("c:\1\")
End Sub

Function RenomeiaArquivos(CaminhoRaiz)
Dim contador As Integer
contador = Text1.Text 'Caixa com o primeiro numero

Dim fso, Raiz, Arquivo, TodosArquivos, Valido As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
Set Raiz = fso.GetFolder(CaminhoRaiz)
Set TodosArquivos = Raiz.Files
For Each Arquivo In TodosArquivos
    Select Case Right(LCase(Arquivo.Name), 4)
        Case ".bmp": Valido = True: extensao = ".bmp"
        Case ".png": Valido = True: extensao = ".png"
        Case ".gif": Valido = True: extensao = ".gif"
        Case ".jpg": Valido = True: extensao = ".jpg"
        Case "jpeg": Valido = True: extensao = ".jpeg"
        Case Else
            Valido = False
    End Select
    If Valido Then
        Arquivo.Name = Right("000" & contador, 3) & extensao 'Renomeia os arquivos para 3 digitos 000
        contador = contador + 1 'Incrementa para proximos arquivos
    End If
Next
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar