Escrevendo em um arquivo texto

Artigo
08/25/2010

Nesta lição, você aprenderá como escrever uma sequência de caracteres em um arquivo de texto no Visual Basic usando o Objeto My.Computer.FileSystem.

A lição anterior, Recuperando nomes de arquivos em uma pasta, descreve como criar um aplicativo Picture Viewer que exibe imagens que estão em uma pasta em uma caixa de imagem.A próxima etapa é salvar os nomes das suas figuras favoritas em um arquivo de texto.

Básicos sobre Arquivos

Antes de escrever em um arquivo de texto, existem algumas coisas que você deve conhecer.O objeto My noVisual Basictorna trabalhar com arquivos fácil.Você pode escrever em arquivos em um computador usando o Objeto My.Computer.FileSystem.

Você pode usar o My.Computador.FileSystem.WriteAllText método para escrever uma sequência de caracteres em um arquivo de texto.Se o arquivo não existir, este método criará para você.Você pode indicar que você deseja adicionar texto ao arquivo, em vez de substituir texto existente, passando True como o parâmetro de append.

Observação:
No Windows XP, são especiais pastas denominadas MyDocuments , MyPictures e MyMusic .No Windows Vista, essas pastas não são necessário "Meu" no nome do s ; em vez disso, elas são nomeadas documentos, imagens , e música.Você usará essas pastas nesta lição.No entanto, o código desta lição irá executar no Windows XP e Windows Vista.

Tente-o!

Para anexar texto em um arquivo de texto

Abra o projeto Picture Viewer da lição anterior.Se você ainda não concluiu-lo, vá para Recuperando nomes de arquivos em uma pasta e conclua a lição para poder continuar.
No Solution Explorer, selecione Form1.vb e em seguida, no menu View, clique em Designer.
Adicionar um Botão controle o formulário, ao lado de Carregar imagens botão e o nome FavoritesAdd.
Alterar as propriedades deste botão a seguir:

Propriedade

Valor

Texto

Adicionar a Favoritos

Size (Tamanho)

92, 23
Clique duas vezes no botão Add to Favorites e adicione o seguinte código para o manipulador de eventos FavoritesAdd_Click.Este código adiciona o texto selecionado na caixa de listagem para o arquivo FavoritePictures.txt.
```
If PictureBox1.ImageLocation <> "" Then

    ' Add the selected picture to the favorites text file.
    My.Computer.FileSystem.WriteAllText(FavoritePictures, _
        Me.ListBox1.SelectedItem & ",", True)

End If
```
Adicione o seguinte código acima do manipulador de eventos FavoritesAdd_Click.Esse código define o caminho e nome do arquivo para a variável FavoritePictures.
```
Dim FavoritePictures As String = _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments _
    & "\FavoritePictures.txt"
```
Pressione F5 para executar o código.
Clique em Load Pictures e clique em sua imagem favorita na lista.
Clique em Add to Favorites.
Abra o arquivo FavoritePictures.txt salvo na pasta Documentos para verificar se o nome da imagem foi anexado ao arquivo.