Programación de bases de datos con Visual Basic .NET

Listado 11.10

Uso de los métodos SetAttributes, SetCreationTime, SetLastAccessTime y SetLastWriteTime

Dim miFechaAhora As Date

Dim miFechaCreacion As Date

Dim miFechaAbrio As Date

Dim miFechaEscribio As Date

Dim misAtributos As FileAttributes

miFechaAhora = Now

File.SetAttributes("c:\miArchivo.txt", FileAttributes.ReadOnly)

File.SetCreationTime("c:\miArchivo.txt", miFechaAhora)

File.SetLastAccessTime("c:\miArchivo.txt", miFechaAhora)

File.SetLastWriteTime("c:\miArchivo.txt", miFechaAhora)

miFechaCreacion = File.GetCreationTime("c:\miArchivo.txt")

miFechaAbrio = File.GetCreationTime("c:\miArchivo.txt")

miFechaEscribio = File.GetCreationTime("c:\miArchivo.txt")

misAtributos = File.GetAttributes("c:\miArchivo.txt")

If misAtributos.ReadOnly = True Then

MsgBox("El archivo es de sólo lectura")

End If