Neste artigo vamos dar um exemplo simples de como validar uma string...[DESCRICAO]TryParse e usado para determinar se uma string e uma representacao valida de um tipo numerico especificado ou nao. TryParse e um metodo implementado para todos os tipos primitivos numericos e tambem por tipos como DateTime e IPAddress.using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms; namespace StringComparar{ public partial class Form1 : Form { private void Validar() { //Declarando variaveis bool isNumeric; int i; string str = textBox1.Text; isNumeric = int.TryParse(str, out i); //If para determinar se o valor da string e numerico if (isNumeric) { MessageBox.Show("O Valor do Textbox e Numerico: " + i); } else if (str == string.Empty) { MessageBox.Show("O Textbox esta vazio"); } else { MessageBox.Show("O Valor de i nao e Numerico: " + str); } } public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Validar(); } }}Gostou??? comente por favor !!! Nunca estiveram em uma situacao de ter que renomear varios arquivos manualmente?Bom, nos sim! Por isso desenvolvemos uma rotina que renomeia arquivos em massa. (Basta ter uma logica por tras.)Exemplo: Tenho em um determinado diretorio varios arquivos com o formato .csv, porem gostaria de alterar todos eles para a extensao .xls!Perfeito, em vez de perder algum tempo fazendo essa mesma funcao manualmente, crie uma rotina que faca isso para voce.Veja como:Antes de aplicar a funcao:Imports System.IOPublic Class frmRenomearArquivosPrivate Sub btnbuscarPasta_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnDefinirDiretorio.ClickIf Me.dirCaminho.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.txtCaminho.Text = Me.dirCaminho.SelectedPath Me.BuscarArquivos(Me.txtCaminho.Text)End IfEnd SubPrivate Sub btnRenomear_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnRenomear.ClickIf String.IsNullOrEmpty(Me.txtCaminho.Text) Then MessageBox.Show("Defina o diretorio!", "Atancao!", _ MessageBoxButtons.OK, MessageBoxIcon.Stop) Me.btnDefinirDiretorio.Focus() Exit SubEnd IfIf String.IsNullOrEmpty(Me.txtLocalizar.Text) Or _ String.IsNullOrEmpty(Me.txtSubstituir.Text) Then MessageBox.Show("Preencher campos obrigatorios!", "Atencao!", _ MessageBoxButtons.OK, MessageBoxIcon.Stop) Me.txtLocalizar.Focus() Exit SubEnd IfTry Me.RenomearArquivos() Me.BuscarArquivos(Me.txtCaminho.Text) Me.txtLocalizar.Clear() Me.txtSubstituir.Clear() Me.txtLocalizar.Focus()Catch ex As Exception MessageBox.Show(ex.Message, "Erro!", _ MessageBoxButtons.OK, MessageBoxIcon.Error)End TryEnd SubPrivate Sub txtLocalizar_GotFocus(ByVal sender As Object, _ ByVal e As System.EventArgs) _ Handles txtLocalizar.GotFocusMe.txtLocalizar.SelectAll()End SubPrivate Sub txtSubstituir_GotFocus(ByVal sender As Object, _ ByVal e As System.EventArgs) _ Handles txtSubstituir.GotFocusMe.txtSubstituir.SelectAll()End Sub''' <summary>''' Renomeia os arquivos''' </summary>Private Sub RenomearArquivos()For Each Arquivo As String In Directory.GetFiles(Me.txtCaminho.Text) Dim NovoNome As String = String.Empty Dim NomeArquivo As String = String.Empty ' Extrai o diretorio do nome do arquivo If Arquivo.IndexOf("\") >= 0 Then NomeArquivo = Arquivo.Substring(0, Arquivo.LastIndexOf("\")) Else NomeArquivo = System.Environment.CurrentDirectory End If ' Define o novo nome para o arquivo NovoNome = Replace(Arquivo.Substring(Arquivo.LastIndexOf("\") + 1), _ Me.txtLocalizar.Text, Me.txtSubstituir.Text) ' Renomeia o arquivo System.IO.File.Move(Arquivo, NomeArquivo & "\" & NovoNome) MessageBox.Show("Os arquivos foram renomeados corretamente!", "Confirmacao", _ MessageBoxButtons.OK, MessageBoxIcon.Information)NextEnd Sub''' <summary>''' Preenche o ListBox com o nome dos arquivos''' que estiverem no diretorio selecionado''' </summary>''' <param name="pDiretorio">Diretorio dos arquivos a serem renomeados</param>Private Sub BuscarArquivos(ByVal pDiretorio As String)Me.lsbArquivos.Items.Clear()If Directory.Exists(pDiretorio) Then For Each Arquivo As String In Directory.GetFiles(pDiretorio) Me.lsbArquivos.Items.Add(Arquivo.Substring(Arquivo.LastIndexOf("\") + 1)) NextElse MessageBox.Show("Diretorio inexistente!" & vbCrLf & pDiretorio, "Erro!", _ MessageBoxButtons.OK, MessageBoxIcon.Error)End IfEnd SubEnd ClassApos aplicar a funcao (Resultado): ResultadoDownload do arquivo completo: RenomearArquivos.zip A vida nao e facil para quem esta aprendendo com a ajuda dos tutoriais, abaixo seguem alguns exercicios faceis, e e uma forma de por em pratica o