Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = My.Application.Info.AssemblyName.ToString & " - Macoratti .net"
        txtPasta.Text = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures).ToString
        txtCaractereLocalizar.Text = "_"
        txtCaractereSubstituir.Text = "-"
    End Sub

Private Sub btnSelecionarPasta_Click(sender As Object, e As EventArgs) Handles btnSelecionarPasta.Click
        Using oFolderBrowserDialog As New FolderBrowserDialog
            If oFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                If oFolderBrowserDialog.SelectedPath.Length > 0 Then
                    txtPasta.Text = oFolderBrowserDialog.SelectedPath
                End If
            End If
        End Using
    End Sub

 Private Sub btnIniciar_Click(sender As Object, e As EventArgs) Handles btnIniciar.Click
        Dim caractere_Valido As Boolean = False

        If Not txtCaractereSubstituir.Text.Contains("\") Then
            caractere_Valido = True
        End If

        If caractere_Valido = True Then
            If EncontrarRenomearArquivos(txtPasta.Text, "*" & txtCaractereLocalizar.Text & "*") Then
                MessageBox.Show("Operação concluída com sucesso...")
                Process.Start("explorer.exe", txtPasta.Text)
            Else
                MessageBox.Show("Não foi possível realizar a operação ...")
            End If
        End If
    End Sub

 Private Function EncontrarRenomearArquivos(Optional caminhoDiretorio As String = "c:\dados\teste\", 
Optional StringAProcurar As String = "*.txt") As Boolean

        Dim caminhoValido As Boolean = True
        '----------------------------------------------
        ' VERIFICA SE CAMINHO É VÁLIDO
        '----------------------------------------------
        'remove espaco antes e depois
        caminhoDiretorio = Trim(caminhoDiretorio)
        'verifica se o tamanho é zero
        If Not Len(caminhoDiretorio) > 0 Then
            caminhoValido = False
        End If
        'verifica se o caractere é válido
        ' \ * | : ? < > / exceto o \ que o separador de pasta
        ' e * que indica para ignorar tudo dentro de outros chars
        If InStr(caminhoDiretorio, "|", CompareMethod.Binary) > 0 Then
            caminhoValido = False
        End If
        If InStr(caminhoDiretorio, ">", CompareMethod.Binary) > 0 Then
            caminhoValido = False
        End If
        If InStr(caminhoDiretorio, "<", CompareMethod.Binary) > 0 Then
            caminhoValido = False
        End If
        If InStr(caminhoDiretorio, "?", CompareMethod.Binary) > 0 Then
            caminhoValido = False
        End If
        If InStr(caminhoDiretorio, ":", CompareMethod.Binary) = 2 Then
            Dim str_temp As String = caminhoDiretorio.Substring(2, Len(caminhoDiretorio) - 2)
            If InStr(str_temp, ":", CompareMethod.Binary) > 0 Then
                caminhoValido = False
            End If
        End If
        If InStr(caminhoDiretorio, "*", CompareMethod.Binary) > 0 Then
            caminhoValido = False
        End If

         Dim SegurancaValida As Boolean = True

        '------------------------------------------Código comentado---------------------------------
        ' este código inclui mais segurança ao processo permitindo que somente usuários pertencente
        ' ao grupo dos administradores possam realizar essa operação
        '---------------------------------------------------------------------------------------------------------

        'Dim oDirectorySecurity As System.Security.AccessControl.DirectorySecurity
        'Dim oAuthorizationRuleCollection As System.Security.AccessControl.AuthorizationRuleCollection
        'Dim oRule As System.Security.AccessControl.FileSystemAccessRule
        

        'oDirectorySecurity = IO.Directory.GetAccessControl(caminhoDiretorio)

        'oAuthorizationRuleCollection = oDirectorySecurity.GetAccessRules(
        '    True, True, Type.GetType("System.Security.Principal.NTAccount"))

        'For Each oRule In oAuthorizationRuleCollection
        '    If oRule.FileSystemRights = Security.AccessControl.FileSystemRights.FullControl Then
        '        If InStr(oRule.IdentityReference.Value, My.User.Name) > 0 Then
        '            SegurancaValida = True
        '        End If
        '    End If
        'Next

        Dim Is_Pasta_Atalho As Boolean = False

        If caminhoDiretorio.StartsWith("c:\Users", True, System.Globalization.CultureInfo.CurrentCulture) Then
            Is_Pasta_Atalho = True
        End If

        If caminhoValido = True And SegurancaValida = True Then
            For Each diretorioEncontrado As String In My.Computer.FileSystem.GetDirectories(caminhoDiretorio, 
FileIO.SearchOption.SearchTopLevelOnly, StringAProcurar)

                Dim aArray() As String = diretorioEncontrado.Split("\")
                Dim Pasta1 As String = aArray(aArray.Length - 1)
                Dim Pasta2 As String = Pasta1.Replace(txtCaractereLocalizar.Text, txtCaractereSubstituir.Text)
                Try
                    My.Computer.FileSystem.RenameDirectory(diretorioEncontrado, Pasta2)
                Catch ex1 As System.IO.PathTooLongException
                    MessageBox.Show("Erro " & ex1.Message)
                Catch ex As Exception
                    MessageBox.Show("Erro " & ex.Message)
                End Try
            Next

            If chkIncluiSubPasta.Checked = True Then

                For Each diretorioEncontrado As String In My.Computer.FileSystem.GetDirectories(
                    caminhoDiretorio, FileIO.SearchOption.SearchTopLevelOnly)

                    EncontrarRenomearArquivos(diretorioEncontrado, StringAProcurar) ' busca recursiva

                Next
            End If
            Return True
        Else
            MessageBox.Show("caminhoValido =" & caminhoValido & vbCrLf & "SegurancaValida =" & SegurancaValida)
            Return False
        End If

    End Function

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas