Demonstra Passo a passo: Manipulação de arquivos e diretórios em Visual Basic
Esta explicação passo a passo fornece uma introdução para os fundamentos de E/S de arquivos no Visual Basic. Ele descreve como criar um pequeno aplicativo que lista e examina os arquivos de texto em um diretório. Para cada arquivo de texto selecionado, o aplicativo fornece atributos de arquivo e a primeira linha do conteúdo. Há uma opção para gravar informações em um arquivo de log.
Este passo a passo usa os membros a My.Computer.FileSystem Object, que estão disponíveis em Visual Basic. Consulte FileSystem para obter mais informações. No final da explicação, é um exemplo equivalente desde que usa as classes da System.IO namespace.
Observação |
---|
Seu computador pode mostrar nomes ou locais diferentes para alguns dos elementos da interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você possui e as configurações que você usa determinam esses elementos. Para obter mais informações, consulte Configurações do Visual Studio. |
Para criar o projeto
No menu File, clique em New Project.
A caixa de diálogo New Project será exibida.
No Modelos instalados painel, expanda Visual Basice em seguida, clique em Windows. No modelos de no meio, clique em Painel de Windows Forms Application.
No nome , digite FileExplorer para definir o nome do projeto e, em seguida, clique em OK.
Visual Studio adiciona o projeto para o Solution Explorer e o Windows Forms Designer é aberto.
Adicione os controles na tabela a seguir para o formulário e defina os valores correspondentes para suas propriedades.
Controle
Propriedade
Valor
ListBox
Nome
filesListBox
Button
Nome
Texto
browseButton
Browse
Button
Nome
Texto
examineButton
Examinar
CheckBox
Nome
Texto
saveCheckBox
Salvar resultados
FolderBrowserDialog
Nome
FolderBrowserDialog1
Selecione uma pasta e listar arquivos em uma pasta
Criar um Click o manipulador de eventos para browseButton clicando duas vezes no controle no formulário. Code Editor aparece.
Adicione o seguinte código para o manipulador de eventos Click.
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then ' List files in the folder. ListFiles(FolderBrowserDialog1.SelectedPath) End If
O FolderBrowserDialog1.ShowDialog abre de chamar o Procurar pasta caixa de diálogo. Depois que o usuário clica em OK, o SelectedPath propriedade é enviada como um argumento para o ListFiles método, que é adicionado na próxima etapa.
Adicione o seguinte ListFiles método.
Private Sub ListFiles(ByVal folderPath As String) filesListBox.Items.Clear() Dim fileNames = My.Computer.FileSystem.GetFiles( folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt") For Each fileName As String In fileNames filesListBox.Items.Add(fileName) Next End Sub
Este código primeiro limpa a ListBox.
O GetFiles , em seguida, o método recupera uma coleção de seqüências de caracteres, uma para cada arquivo no diretório. O GetFiles método aceita um argumento de padrão de pesquisa para recuperar arquivos que correspondam a um determinado padrão. Neste exemplo, somente os arquivos que possuem a extensão. txt são retornados.
As seqüências de caracteres são retornadas pelo GetFiles método, em seguida, são adicionados para o ListBox.
Execute o aplicativo. Clique no botão Browse. No Procurar pasta caixa de diálogo, procure uma pasta que contém os arquivos. txt e selecione a pasta e clique em OK.
O ListBox contém uma lista de arquivos. txt na pasta selecionada.
Pare a execução do aplicativo.
Para obter os atributos de um arquivo e conteúdo de um arquivo de texto
Criar um Click o manipulador de eventos para examineButton clicando duas vezes no controle no formulário.
Adicione o seguinte código para o manipulador de eventos Click.
If filesListBox.SelectedItem Is Nothing Then MessageBox.Show("Please select a file.") Exit Sub End If ' Obtain the file path from the list box selection. Dim filePath = filesListBox.SelectedItem.ToString ' Verify that the file was not removed since the ' Browse button was clicked. If My.Computer.FileSystem.FileExists(filePath) = False Then MessageBox.Show("File Not Found: " & filePath) Exit Sub End If ' Obtain file information in a string. Dim fileInfoText As String = GetTextForOutput(filePath) ' Show the file information. MessageBox.Show(fileInfoText)
O código verifica se um item é selecionado na ListBox. Ele então obtém a entrada de caminho do arquivo da ListBox. O FileExists método é usado para verificar se o arquivo ainda existe.
O caminho do arquivo é enviado como um argumento para o GetTextForOutput método, que é adicionado na próxima etapa. Esse método retorna uma seqüência de caracteres que contém informações sobre o arquivo. As informações do arquivo aparecem em um MessageBox.
Adicione o seguinte GetTextForOutput método.
Private Function GetTextForOutput(ByVal filePath As String) As String ' Verify that the file exists. If My.Computer.FileSystem.FileExists(filePath) = False Then Throw New Exception("File Not Found: " & filePath) End If ' Create a new StringBuilder, which is used ' to efficiently build strings. Dim sb As New System.Text.StringBuilder() ' Obtain file information. Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(filePath) ' Add file attributes. sb.Append("File: " & thisFile.FullName) sb.Append(vbCrLf) sb.Append("Modified: " & thisFile.LastWriteTime.ToString) sb.Append(vbCrLf) sb.Append("Size: " & thisFile.Length.ToString & " bytes") sb.Append(vbCrLf) ' Open the text file. Dim sr As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(filePath) ' Add the first line from the file. If sr.Peek() >= 0 Then sb.Append("First Line: " & sr.ReadLine()) End If sr.Close() Return sb.ToString End Function
O código usa a GetFileInfo método para obter parâmetros de arquivo. Os parâmetros do arquivo são adicionados a uma StringBuilder.
O OpenTextFileReader método lê o conteúdo do arquivo em um StreamReader. A primeira linha do conteúdo é obtida a partir de StreamReader e é adicionado ao StringBuilder.
Execute o aplicativo. Clique em Procurare navegue até uma pasta que contém os arquivos. txt. Clique em OK.
Selecione um arquivo de ListBoxe, em seguida, clique em Examine. A MessageBox mostra as informações do arquivo.
Pare a execução do aplicativo.
Para adicionar uma entrada de log
Adicione o seguinte código ao final da examineButton_Click manipulador de eventos.
If saveCheckBox.Checked = True Then ' Place the log file in the same folder as the examined file. Dim logFolder As String = My.Computer.FileSystem.GetFileInfo(filePath).DirectoryName Dim logFilePath = My.Computer.FileSystem.CombinePath(logFolder, "log.txt") Dim logText As String = "Logged: " & Date.Now.ToString & vbCrLf & fileInfoText & vbCrLf & vbCrLf ' Append text to the log file. My.Computer.FileSystem.WriteAllText(logFilePath, logText, append:=True) End If
O código define o caminho do arquivo de log para colocar o arquivo de log no mesmo diretório que o arquivo selecionado. O texto da entrada do log é definido como a data e hora atuais seguido as informações do arquivo.
O WriteAllText método, com o append argumento definido como True, que é usado para criar a entrada de log.
Execute o aplicativo. Procurar um arquivo de texto, selecione-o na ListBox, selecione o Salvar resultados caixa de seleção e clique em Examine. Verifique se que a entrada de log é gravada para o log.txt arquivo.
Pare a execução do aplicativo.
Para usar o diretório atual
Crie um manipulador de eventos para Form1_Load clicando duas vezes no formulário.
Adicione o seguinte código ao manipulador de eventos.
' Set the default directory of the folder browser to the current directory. FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.CurrentDirectory
Este código define o diretório padrão do navegador da pasta para o diretório atual.
Execute o aplicativo. Quando você clica em Procurar na primeira vez, o Procurar pasta caixa de diálogo é aberta para o diretório atual.
Pare a execução do aplicativo.
Para ativar seletivamente os controles
Adicione o seguinte SetEnabled método.
Private Sub SetEnabled() Dim anySelected As Boolean = (filesListBox.SelectedItem IsNot Nothing) examineButton.Enabled = anySelected saveCheckBox.Enabled = anySelected End Sub
O SetEnabled método ativa ou desativa os controles, dependendo se um item é selecionado na ListBox.
Criar um SelectedIndexChanged o manipulador de eventos para filesListBox clicando duas vezes o ListBox o controle no formulário.
Adicione uma chamada para SetEnabled no novo filesListBox_SelectedIndexChanged manipulador de eventos.
Adicione uma chamada para SetEnabled no final de browseButton_Click manipulador de eventos.
Adicione uma chamada para SetEnabled no final de Form1_Load manipulador de eventos.
Execute o aplicativo. O Salvar resultados caixa de seleção e o Examine botão está desabilitado se um item não estiver selecionado na ListBox.
Exemplo completo usando My.Computer.FileSystem
Veja a seguir o exemplo completo.
' This example uses members of the My.Computer.FileSystem
' object, which are available in Visual Basic.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set the default directory of the folder browser to the current directory.
FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.CurrentDirectory
SetEnabled()
End Sub
Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
' List files in the folder.
ListFiles(FolderBrowserDialog1.SelectedPath)
End If
SetEnabled()
End Sub
Private Sub ListFiles(ByVal folderPath As String)
filesListBox.Items.Clear()
Dim fileNames = My.Computer.FileSystem.GetFiles(
folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
For Each fileName As String In fileNames
filesListBox.Items.Add(fileName)
Next
End Sub
Private Sub examineButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles examineButton.Click
If filesListBox.SelectedItem Is Nothing Then
MessageBox.Show("Please select a file.")
Exit Sub
End If
' Obtain the file path from the list box selection.
Dim filePath = filesListBox.SelectedItem.ToString
' Verify that the file was not removed since the
' Browse button was clicked.
If My.Computer.FileSystem.FileExists(filePath) = False Then
MessageBox.Show("File Not Found: " & filePath)
Exit Sub
End If
' Obtain file information in a string.
Dim fileInfoText As String = GetTextForOutput(filePath)
' Show the file information.
MessageBox.Show(fileInfoText)
If saveCheckBox.Checked = True Then
' Place the log file in the same folder as the examined file.
Dim logFolder As String = My.Computer.FileSystem.GetFileInfo(filePath).DirectoryName
Dim logFilePath = My.Computer.FileSystem.CombinePath(logFolder, "log.txt")
Dim logText As String = "Logged: " & Date.Now.ToString &
vbCrLf & fileInfoText & vbCrLf & vbCrLf
' Append text to the log file.
My.Computer.FileSystem.WriteAllText(logFilePath, logText, append:=True)
End If
End Sub
Private Function GetTextForOutput(ByVal filePath As String) As String
' Verify that the file exists.
If My.Computer.FileSystem.FileExists(filePath) = False Then
Throw New Exception("File Not Found: " & filePath)
End If
' Create a new StringBuilder, which is used
' to efficiently build strings.
Dim sb As New System.Text.StringBuilder()
' Obtain file information.
Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(filePath)
' Add file attributes.
sb.Append("File: " & thisFile.FullName)
sb.Append(vbCrLf)
sb.Append("Modified: " & thisFile.LastWriteTime.ToString)
sb.Append(vbCrLf)
sb.Append("Size: " & thisFile.Length.ToString & " bytes")
sb.Append(vbCrLf)
' Open the text file.
Dim sr As System.IO.StreamReader =
My.Computer.FileSystem.OpenTextFileReader(filePath)
' Add the first line from the file.
If sr.Peek() >= 0 Then
sb.Append("First Line: " & sr.ReadLine())
End If
sr.Close()
Return sb.ToString
End Function
Private Sub filesListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filesListBox.SelectedIndexChanged
SetEnabled()
End Sub
Private Sub SetEnabled()
Dim anySelected As Boolean =
(filesListBox.SelectedItem IsNot Nothing)
examineButton.Enabled = anySelected
saveCheckBox.Enabled = anySelected
End Sub
Exemplo completo usando System. IO
O exemplo a seguir equivalente usa classes a partir de System.IO namespace em vez de usar My.Computer.FileSystem objetos.
' This example uses classes from the System.IO namespace.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set the default directory of the folder browser to the current directory.
FolderBrowserDialog1.SelectedPath =
System.IO.Directory.GetCurrentDirectory()
SetEnabled()
End Sub
Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
' List files in the folder.
ListFiles(FolderBrowserDialog1.SelectedPath)
SetEnabled()
End If
End Sub
Private Sub ListFiles(ByVal folderPath As String)
filesListBox.Items.Clear()
Dim fileNames As String() =
System.IO.Directory.GetFiles(folderPath,
"*.txt", System.IO.SearchOption.TopDirectoryOnly)
For Each fileName As String In fileNames
filesListBox.Items.Add(fileName)
Next
End Sub
Private Sub examineButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles examineButton.Click
If filesListBox.SelectedItem Is Nothing Then
MessageBox.Show("Please select a file.")
Exit Sub
End If
' Obtain the file path from the list box selection.
Dim filePath = filesListBox.SelectedItem.ToString
' Verify that the file was not removed since the
' Browse button was clicked.
If System.IO.File.Exists(filePath) = False Then
MessageBox.Show("File Not Found: " & filePath)
Exit Sub
End If
' Obtain file information in a string.
Dim fileInfoText As String = GetTextForOutput(filePath)
' Show the file information.
MessageBox.Show(fileInfoText)
If saveCheckBox.Checked = True Then
' Place the log file in the same folder as the examined file.
Dim logFolder As String =
System.IO.Path.GetDirectoryName(filePath)
Dim logFilePath = System.IO.Path.Combine(logFolder, "log.txt")
' Append text to the log file.
Dim logText As String = "Logged: " & Date.Now.ToString &
vbCrLf & fileInfoText & vbCrLf & vbCrLf
System.IO.File.AppendAllText(logFilePath, logText)
End If
End Sub
Private Function GetTextForOutput(ByVal filePath As String) As String
' Verify that the file exists.
If System.IO.File.Exists(filePath) = False Then
Throw New Exception("File Not Found: " & filePath)
End If
' Create a new StringBuilder, which is used
' to efficiently build strings.
Dim sb As New System.Text.StringBuilder()
' Obtain file information.
Dim thisFile As New System.IO.FileInfo(filePath)
' Add file attributes.
sb.Append("File: " & thisFile.FullName)
sb.Append(vbCrLf)
sb.Append("Modified: " & thisFile.LastWriteTime.ToString)
sb.Append(vbCrLf)
sb.Append("Size: " & thisFile.Length.ToString & " bytes")
sb.Append(vbCrLf)
' Open the text file.
Dim sr As System.IO.StreamReader =
System.IO.File.OpenText(filePath)
' Add the first line from the file.
If sr.Peek() >= 0 Then
sb.Append("First Line: " & sr.ReadLine())
End If
sr.Close()
Return sb.ToString
End Function
Private Sub filesListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filesListBox.SelectedIndexChanged
SetEnabled()
End Sub
Private Sub SetEnabled()
Dim anySelected As Boolean =
(filesListBox.SelectedItem IsNot Nothing)
examineButton.Enabled = anySelected
saveCheckBox.Enabled = anySelected
End Sub
Consulte também
Tarefas
Demonstra Passo a passo: Manipular arquivos usando.NET Framework métodos (Visual Basic)
Referência
Histórico de alterações
Date |
History |
Motivo |
---|---|---|
Dezembro de 2010 |
Exemplos de revisada e explicação passo a passo. |
aprimoramento |
Agosto de 2010 |
Código de exemplo atualizado e fixo. |
Comentários do cliente. |