VBA Tips - Renomeando arquivos aleatóriamente numa pasta - Renaming files Randomly in a folder using VBA



Sim, agora poderemos dar nomes aleatórios há vários arquivos reunidos numa pasta. Todos serão renomeados:

Function ReFileNameRandomly (Prefix As String, _
                    FILEPATH As String, _
                    nExtension As String, _
                    FinalExtension As String)
    
    Dim strfile As String
    Dim filenum As String
    Dim SizeExtension As Integer

    Dim sFileNumber As String
    
    Let strfile = Dir(FILEPATH)
    Let SizeExtension = Len(Replace(nExtension, ".", ""))

    Do While strfile <> ""
        Debug.Print strfile
    
        If Right$(strfile, SizeExtension) = nExtension Then
            Let filenum = Mid$(strfile, Len(strfile) - 6, SizeExtension)
            Let sFileNumber = Int((99999 - 10000 + 1) * Rnd + 10000)
            
            Name FILEPATH & strfile As FILEPATH & Prefix & sFileNumber & "." & FinalExtension
        End If
        Let strfile = Dir
    Loop
End Function


Tags: VBA, file, rename, folder, pasta, tips, randomly, aleatoriamente, aleatório, renomear

Nenhum comentário:

Postar um comentário

diHITT - Notícias