Excluindo um arquivo de texto

Artigo
08/25/2010

Nesta lição, você aprenderá como excluir um arquivo de uma pasta usando o Objeto My.Computer.FileSystem.

Você pode excluir um arquivo de texto usando o Método My.Computer.FileSystem.FindInFiles.É sempre aconselhável perguntar aos usuários se eles têm certeza que desejam excluir um arquivo antes de excluí-lo realmente.Imagine se você tivesse clicado acidentalmente num botão que automaticamente excluía sem aviso um arquivo que você precisava!Você usará o MsgBoxResult Enumeration para determinar se o usuário clica em Yes ou No quando solicitado a confirmar a exclusão.

Tente-o!

Para excluir um arquivo

Abra o projeto Picture Viewer da lição anterior.Se você ainda não concluiu-lo, vá para Ler um arquivo de texto e conclua a lição para poder continuar.
Em Solution Explorer,selecione Form1.vb e em seguida, no menu View, clique em Designer .
Adicione um controle Button ao formulário, posicionando-o próximo ao botão Load Favorites.
Alterar as propriedades deste botão a seguir:

Propriedade

Valor

Nome

DeleteFavorites

Texto

Exclui os favoritos

Size (Tamanho)

92, 23
Clique duas vezes no novo controle Button para adicionar o manipulador de eventos padrão no Editor de Códigos.

Propriedade	Valor
Nome	DeleteFavorites
Texto	Exclui os favoritos
Size (Tamanho)	92, 23

No manipulador de eventos DeleteFavorites_Click, adicione o código a seguir.Esse código verifica para garantir que o arquivo a ser excluído existe e, em seguida, exibe uma caixa de mensagem para verificar se o usuário deseja excluir o arquivo.Se o usuário clicar em sim, a caixa de imagem e a caixa de listagem são desmarcadas e em seguida, o arquivo de texto é excluído da pasta Documentos.

' Check that the favorites text file exists.
If My.Computer.FileSystem.FileExists(FavoritePictures) Then

    ' Ensure that user wants to delete the favorites text file.
    If MsgBox("Are you sure you want to send the favorites" _
        & " file to the Recycle Bin?", MsgBoxStyle.YesNo, _
        "Delete Favorite Pictures") = MsgBoxResult.Yes Then

        ' Clear the picture box and the list box.
        Me.ListBox1.Items.Clear()
        Me.PictureBox1.ImageLocation = ""

        ' Delete the favorites file.
        My.Computer.FileSystem.DeleteFile(FavoritePictures)

    End If
Else
    MsgBox("The favorites file does not exist.")
End If

Pressione F5 para executar o código.
Clique em Delete Favorites e em seguida, clique em Yes quando for solicitado.
Verificar se o arquivo FavoritePictures.txt foi excluído da pasta Documentos, clicando no botão Load Favorites.

Próximas etapas

Nesse conjunto de lições, você aprendeu a criar um aplicativo Picture Viewer que permite que você leia nomes de arquivo da pasta Imagens e exiba as imagens correspondentes em uma caixa de imagem.Você também aprendeu como ler e escrever em um arquivo de texto e como excluir o arquivo de texto.No próximo conjunto de lições, você aprenderá sobre as classes, as plantas de objetos que você pode reutilizar em seus programas.

Próxima Lesson: Programação com objetos: Usando classes