none
Checar se diretório está acessível e listar seus arquivos com algumas informações RRS feed

  • Pergunta

  • 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?
    quarta-feira, 20 de agosto de 2014 22:48

Respostas

  • Imports System.IO

    Public Class Form1

      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 Resposta Lukas de Jesus segunda-feira, 29 de setembro de 2014 22:29
    quarta-feira, 10 de setembro de 2014 19:10