Visual Basic - Abrir archivo oculto

Life is soft - evento anual de software empresarial
   
Vista:

Abrir archivo oculto

Publicado por Juan (30 intervenciones) el 30/08/2008 20:19:32
Hola:

Tengo un form con un drive, dir y filelist que me lista todos los archivos (incluidos los ocultos). Al seleccionar el archivo en el filelist, abre su contenido en un text1.

El caso es que los de extensión *.txt me los abre en el text1 sin problemas, pero al intentar abrir los ocultos, por ejemplo los de extensión *.ini, me dice que no encuentra el archivo.

Este es mi código:
Private Sub Dir1_Change()
File1 = Dir1
File1.System = True
File1.Hidden = True
End Sub

Private Sub File1_Click()
Drive1.Visible = False
Dir1.Visible = False
File1.Visible = False
Text1.Visible = True
Dim fn
fn = FreeFile
Open Dir1 & File1.FileName For Input As fn
Text1.Text = Input$(LOF(fn), fn)
Close fn
End Sub

Private Sub Form_Load()
Dir1 = Drive1
End Sub

Private Sub Label1_Click()
Drive1.Visible = True
Dir1.Visible = True
File1.Visible = True
End Sub

¿Que puede pasar? ¿como modifico el código para que abra el contenido de un *.ini en el text para poder modificarlo?.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir archivo oculto

Publicado por A.H.H (28 intervenciones) el 01/09/2008 20:44:45
Hola prueba a poner en tu codigo donde dice:

Private Sub Dir1_Change()
File1 = Dir1
File1.System = True
File1.Hidden = True
End Sub


AGREGA ESTAS lineas:

File1.Archive = True
File1.Normal = True
File1.ReadOnly = True

************

con esas lineas veras los .ini

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar