Ferramentas de Usuário

Ferramentas de Site


dev_net:vb.net:propriedades_ficheiros

Propriedades de Ficheiros

Os ficheiros possuem propriedades que nos mostram informações como o seu tamanho, a sua data de criação, a localização, etc. Algumas informações passiveis de serem recolhidos dos ficheiros:

  • Nome
  • Caminho
  • Extensão
  • Atributos
  • Tamanho
  • Data de Criação
  • Data de Modificação
  • Data do último acesso

Como exemplo, a seguinte aplicação tem estes objectos:

  • 9 labels
  • 9 textboxs
  • 1 botão
  • 1 groupbox
  • 1 OpenFileDialog

Para facilitação, tornando o código mais simples de perceber, foram criadas duas funções, uma para mostrar as propriedades do ficheiro e outra para fazer uma optimização na visualização do tamanho do mesmo.

Função MostrarPropriedaes

Private Sub MostrarPropriedades(ByVal fileproperties As FileSystemInfo)
 
        txtNome.Text = fileproperties.Name.ToString
        txtCaminho.Text = fileproperties.FullName.ToString
        txtExtensao.Text = fileproperties.Extension.ToString
        txtAtributos.Text = fileproperties.Attributes.ToString
        txtCriado.Text = fileproperties.CreationTime.ToString
        txtAcedido.Text = fileproperties.LastAccessTime.ToString
        txtModificado.Text = fileproperties.LastWriteTime.ToString
 
End Sub

Função MostraTamanho

Private Sub MostraTamanho()
        Dim file As New FileInfo(txtFile.Text)
        Dim tamanho As Double
        'Fazer o import da class Math para o uso da funçao ROUND()
        If file.Length > 1024 Then
            tamanho = Round(file.Length / 1024, 0) 'passa para KB
            If tamanho > 1024 Then
                tamanho = Round(tamanho / 1024, 2) 'passa para MB
                If tamanho > 1024 Then
                    tamanho = Round(tamanho / 1024, 2) 'Passa para GB
                    txtTamanho.Text = tamanho & " GB"
                Else
                    txtTamanho.Text = tamanho & " MB"
                End If
            Else
                txtTamanho.Text = tamanho & " KB"
            End If
 
        Else
            txtTamanho.Text = file.Length & "Bytes"
        End If
    End Sub
A criação desta última função tem como objectivo o utilizador ler mais facilmente o tamanho do ficheiro. A propriedade “length” devolve o valor em bytes, ou seja, se o tamanho do ficheiro fosse 700MB, iria ser apresentado o valor 734003200.

Selecionar Ficheiro

O seguinte código deve ser associado ao botão que irá permitir ao utilizar escolher o ficheiro.

Private Sub btnBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowseFile.Click
        openFile.Filter = "All files (*.*)|*.*" 'Filtro para os tipos de ficheiros (Mostra todos)
        'Abre uma dialogbox e no OK poe o caminho completo do ficheiro na textbox
        If openFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtFile.Text = openFile.FileName
        End If
        'Declara a var como FileInfo (parametro com o caminho completo do ficheiro)
        Dim file As New FileInfo(txtFile.Text)
 
        MostrarPropriedades(file)
        MostraTamanho()
 
End Sub

E aqui está um exemplo simples de como ver as propriedades de ficheiros.

Atenção, para que tudo funcione conforme descrito neste tutorial, é necessário fazer a chamada aos namespaces IO e Math.
dev_net/vb.net/propriedades_ficheiros.txt · Última modificação em: 2018/05/14 21:37 (edição externa)