Usuário com melhor resposta
Ajuda Com TexBox - Visual basic

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
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
Todas as Respostas
-
-
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%
-
-
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
-
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
-
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
-