Olá pessoal! Tudo bem? Estou aqui para pedir uma ajuda que para vocês mais experientes creio que será algo fácil: Eu quero que meu programa faz a checagem se tem como acessar um determinado diretório, se tiver eu quero que ele lista em um textbox ou algo
do tipo os arquivos que estão no diretório e a data e hora de criação e a ultima vez acessado. Como eu faço isso?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Verificar se o diretório existe
If System.IO.Directory.Exists("c:\temp") Then
MessageBox.Show("Diretório existe")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Diretorio As String = "c:\temp"
'Verificar se o diretório existe
If System.IO.Directory.Exists(Diretorio) Then
'Listar o conteúdo do diretório e colocar os nomes dos arquivo em um ListBox
Dim DirDiretorio As DirectoryInfo = New DirectoryInfo(Diretorio)
Dim Arquivos() As FileInfo
Dim InfArquivo As FileInfo
Dim i As Integer
Arquivos = DirDiretorio.GetFiles("*.*")
For i = 0 To Arquivos.Length() - 1
InfArquivo = Arquivos.GetValue(i)
ListBox1.Items.Add(InfArquivo.Name & " - " & InfArquivo.CreationTime & " - " & InfArquivo.LastAccessTime)
Next
Else 'O diretório não existe
MessageBox.Show("Diretório existe")
End If
End Sub
End Class
Marcado como RespostaLukas de Jesussegunda-feira, 29 de setembro de 2014 22:29