none
Ajuda Com TexBox - Visual basic RRS feed

  • Pergunta

  • Ola,

    Quero saber como que eu faço para que quando eu Clico em button no texbox aparece os arquivos que foi deletado da pasta Ou o que foi Instalado.

    Exemplo:

    Musicas 100% Deletado

    Videos 100% Deletado

    Arquivos detetado com Sucesso 100%

                                                                  Agradeço desde já a atenção.


    • Editado oMaxiMos sábado, 21 de fevereiro de 2015 12:02 Erros De escrita
    sábado, 21 de fevereiro de 2015 12:00

Respostas

  • Seria mais ou menos isso aqui:

    Imports System.IO
    
    Public Class Form1
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
    
                Dim arrStr As String() = {}
    
                arrStr = System.IO.Directory.GetFiles("C:\Users\nome_usuario\AppData\Local\Temp", "*.*")
    
    
                ListBox1.Items.Clear()
                For i As Integer = 0 To arrStr.Length - 1
    
                    Try
    
                        ListBox1.Items.Add(arrStr(i))
    
                        If i <> arrStr.Length - 1 Then
                            System.IO.File.Delete(arrStr(i))
    
                        ElseIf ListBox1.Items.Count - 1 = arrStr.Length - 1 Then
                            'MessageBox.Show("Arquivos Deletados = " & i)
                            MessageBox.Show("Arquivos Deletados 100%")
                            '    MessageBox.Show(String.Format("{0} % arquivos Deletados com sucesso!", Convert.ToInt32(i / 100).ToString()))
                            End If
                    Catch ExIO As Exception
    
                        Debug.Print(ExIO.Message)
    
                    End Try
    
                Next i
    
    
    
            Catch ExIO As IOException
                MsgBox(ExIO.Message)
    
            End Try
    
    
        End Sub
    End Class
    OBS: Alguns arquivos do sistema não serão deletados ,mais também não apresentam erros.

    • Editado Mr. GMSOFT sábado, 21 de fevereiro de 2015 17:57
    • Marcado como Resposta oMaxiMos domingo, 22 de fevereiro de 2015 00:04
    sábado, 21 de fevereiro de 2015 17:57

Todas as Respostas

  • Desculpe mais detalhe mais o que precisa, a principio o que entendi foi so em clicar em um botao para aparecer um texto.

    Detalhe o que você quer fazer alem de clicar em um botao, que informação quer pegar e de onde

    sábado, 21 de fevereiro de 2015 12:57
  • Ajuda Com o TexBox

    Meu programa serve só para apagar os registro de duas pasta (Prefetch e Temp).

    Eu quero quando eu aperta o botão Prefetch ou Temp,No texbox apareça os arquivos que foi deletado.

    Exemplo:

    Player Musica 100% Deletado

    Google Chrome 100% Deletado

    Arquivos detetado com Sucesso 100%

    sábado, 21 de fevereiro de 2015 17:00
  • Ok melhorou um pouco, preciso saber que método utiliza para deletar os arquivos para saber se dá para identificar o que deleta,fazendo isso saberei quais arquivos deletados e se deletou todos os arquivos encontrados.
    sábado, 21 de fevereiro de 2015 17:06
  • Ok melhorou um pouco, preciso saber que método utiliza para deletar os arquivos para saber se dá para identificar o que deleta,fazendo isso saberei quais arquivos deletados e se deletou todos os arquivos encontrados.

    Você quer fazer um tipo de CCleaner
    • Editado Mr. GMSOFT sábado, 21 de fevereiro de 2015 17:08
    sábado, 21 de fevereiro de 2015 17:07
  • Isso tipo CCleaner.

    Esse e o código que eu uso para deletar os arquivos das pasta.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
    
                Dim arrStr As String() = {}
    
                arrStr = System.IO.Directory.GetFiles("C:\Users\Felipi\AppData\Local\Temp", "*.*")
    
    
    
                For i As Integer = 0 To arrStr.Length - 1
    
                    Try
    
                        System.IO.File.Delete(arrStr(i))
    
                    Catch ExIO As Exception
    
                        Debug.Print(ExIO.Message)
    
                    End Try
    
                Next i
    
    
    
            Catch ExIO As IOException
    
                MsgBox(ExIO.Message)
    

    • Editado oMaxiMos sábado, 21 de fevereiro de 2015 17:15
    sábado, 21 de fevereiro de 2015 17:14
  • Seria mais ou menos isso aqui:

    Imports System.IO
    
    Public Class Form1
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
    
                Dim arrStr As String() = {}
    
                arrStr = System.IO.Directory.GetFiles("C:\Users\nome_usuario\AppData\Local\Temp", "*.*")
    
    
                ListBox1.Items.Clear()
                For i As Integer = 0 To arrStr.Length - 1
    
                    Try
    
                        ListBox1.Items.Add(arrStr(i))
    
                        If i <> arrStr.Length - 1 Then
                            System.IO.File.Delete(arrStr(i))
    
                        ElseIf ListBox1.Items.Count - 1 = arrStr.Length - 1 Then
                            'MessageBox.Show("Arquivos Deletados = " & i)
                            MessageBox.Show("Arquivos Deletados 100%")
                            '    MessageBox.Show(String.Format("{0} % arquivos Deletados com sucesso!", Convert.ToInt32(i / 100).ToString()))
                            End If
                    Catch ExIO As Exception
    
                        Debug.Print(ExIO.Message)
    
                    End Try
    
                Next i
    
    
    
            Catch ExIO As IOException
                MsgBox(ExIO.Message)
    
            End Try
    
    
        End Sub
    End Class
    OBS: Alguns arquivos do sistema não serão deletados ,mais também não apresentam erros.

    • Editado Mr. GMSOFT sábado, 21 de fevereiro de 2015 17:57
    • Marcado como Resposta oMaxiMos domingo, 22 de fevereiro de 2015 00:04
    sábado, 21 de fevereiro de 2015 17:57
  • Caro Mr.GMSOFT,agradeço pela ajuda,Funciono perfeitamente.
    domingo, 22 de fevereiro de 2015 00:05