Revista_PROGRAMAR_5

VisualBasic.NET
4ª parte
Na e dição ante rior fize m os um a abordage m
sobre a utilização de arrays e com o usar as
classe s do nam e space Syste m .IO para a
m anipulação de fich e iros.
Com o sabe m os, q ualq ue r fich e iro possui um
conjunto de proprie dade s, proprie dade s
e stas q ue e stão ace ssíve is usando a classe
File Info.
Dim ficheiro As New
FileInfo("ficheiro.txt")
Proprie dade s do tipo, nom e do fich e iro,
localização, e xte nsão, atributos, tam anh o,
e tc, e stão facilm e nte ace ssíve is re corre ndo
as proprie dade s incorporadas na classe
File Info. Exe m plo:
Função para obte r as proprie dade s
de um fich e iro
Private Function getProperties(ByVal
caminho As String) As Boolean
Try
Dim ficheiro As New FileInfo(caminho)
Dim propriedades As String = ""
With ficheiro
propriedades &= "Prop. do ficheiro" &
ficheiro.Name.ToString & vbCrLf
propriedades &= "======" & vbCrLf
propriedades &= "Nome: " &
ficheiro.Name.ToString & vbCrLf
propriedades &= "Caminho: " &
ficheiro.FullName.ToString & vbCrLf
propriedades &= "Extensão: " &
ficheiro.Extension.ToString & vbCrLf
propriedades &= "Tamanho:" &
ficheiro.Length.ToString & vbCrLf
propriedades &= "Atributos:" &
ficheiro.Attributes.ToString & vbCrLf
propriedades &= "Criação:" &
ficheiro.CreationTime.ToString & vbCrLf
propriedades &= "Ultimo Acesso:" &
ficheiro.LastAccessTime.ToString & vbCrLf
propriedades &= "Modificação:" &
ficheiro.LastWriteTime.ToString & vbCrLf
End With
Console.WriteLine(propriedades)
Return True
Catch ex As Exception
Return False
End Try
End Function
Função M ain
Sub Main()
Dim strCaminho As String = ""
While Trim(strCaminho) = String.Empty
Console.Write("Caminho do ficheiro: ")
strCaminho = Console.ReadLine()
Console.Clear()
End While
If Not getProperties(strCaminho) Then
Console.WriteLine("Erro")
System.Threading.Thread.Sleep(2000)
Else
Console.ReadLine()
End If
End Sub
O utput
Cam inh o do fich e iro: c:\fich e iro.txt
Prop. do fich e iro
======
Nom e : fich e iro.txt
Cam inh o: c:\fich e iro.txt
Exte nsão: .txt
Tam anh o 37
Atributos: Arch ive
Criação: 11-10-2006 16:27:14
Ultim o Ace sso: 11-10-2006 16:28:14
M odificação: 11-10-2006 16:28:14
tutorial
Com o vim os, um a das vantage ns e m usar a
classe File Info, é a possibilidade de obte r
proprie dade s de um fich e iro de um a form a
rápida, m as não só. Esta classe incorpora
tam bém funçõe s para criar fich e iros, m ove r
ou copiar da sua localização actualpara
outra, apagar, e ncriptar, e scre ve r, le r, e tc.