sábado, 6 de agosto de 2011

Leer Atributos de un archivo Visual Basic .NET Usando GetAttributes de System.IO

Leer Atributos de un archivo Visual Basic .NET Usando GetAttributes de System.IO: "Private Sub Cargar_info_Arc()
Dim Info As FileInfo = My.Computer.FileSystem.GetFileInfo(txtUbicacion.Text)
lblTamano.Text = 'Tamaño: ' + Info.Length.ToString()
lblCreado.Text = 'Creado:' + Info.CreationTime
lblAcceso.Text = 'Ultimo Acceso: ' + Info.LastAccessTime

If (File.GetAttributes(txtUbicacion.Text) And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
chkSoloLectura.Checked = True
End If

If (File.GetAttributes(txtUbicacion.Text) And FileAttributes.Hidden) = FileAttributes.Hidden Then
chkOculto.Checked = True
End If

If (File.GetAttributes(txtUbicacion.Text) And FileAttributes.System) = FileAttributes.System Then
chkSistema.Checked = True
End If


End Sub"

No hay comentarios:

Publicar un comentario