Bueno, una vez mas me respondí solo, pero no importa, al menos dejare la respuesta.
La función que estaba buscando era la de GetAttr y SetAttr, para conocer los atributos de un archivo determinado y para modificar los atributos de algún archivo.
Bueno, esto queda algo así, el ejemplo completo esta un poco simple, ya que solo estamos manejando estas dos funciones, pero de igual manera le puede servir a alguien mas, y en la ayuda se pueden ver los demás tipos de atributos que se manejan, los cuales yo no utilize en este ejemplo.
Dim Attributes As FileAttribute
Attributes = GetAttr(thisFile)
If Attributes = FileAttribute.Normal Or Attributes = 32 Then
MsgBox("Archivo de solo lectura")
End If
Como verán era algo así, aqui faltan muchas cosas, pero solo quería citar parte del código, el código completo lo dejo en un adjunto con este mensaje.
Tal vez le sirva a alguien mas.
