Asignar propiedades a un fichero TXT

27/06/2005 - 16:45 por aerovoyager | Informe spam
Buenos dias

Tengo un pequeño dilema, talvez sea trivial pero aun no le doy
solucion.

Hace poco he empezado en vb.NET y ando constryuyendo una aplicacion en
la que necesito asignar las siguientes propiedades "solo
lectura/oculto" a un fichero de texto que creo dinamicamente

Estoy googleando pero aun no hallo una respuesta satisfactoria., si
alguno de los miembros del grupo me pueda dar una idea al respecto se
lo agradeceria y si tuviese un trozo de codigo sera muchisimo mejor

Gracias, que tengan buen dia

Preguntas similare

Leer las respuestas

#1 Angel. E. Ruiz. Pastor
27/06/2005 - 16:57 | Informe spam
Amigo muestrame el codigo de como lo esta realizando para poderte ayudar
mejor.

Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"
"aerovoyager" escribió en el mensaje
news:
Buenos dias

Tengo un pequeño dilema, talvez sea trivial pero aun no le doy
solucion.

Hace poco he empezado en vb.NET y ando constryuyendo una aplicacion en
la que necesito asignar las siguientes propiedades "solo
lectura/oculto" a un fichero de texto que creo dinamicamente

Estoy googleando pero aun no hallo una respuesta satisfactoria., si
alguno de los miembros del grupo me pueda dar una idea al respecto se
lo agradeceria y si tuviese un trozo de codigo sera muchisimo mejor

Gracias, que tengan buen dia
Respuesta Responder a este mensaje
#2 aerovoyager
30/06/2005 - 23:13 | Informe spam
Esta es la rutina que utilizo
Public Sub AddToLog(ByRef str As String, _
Optional ByVal addnewline As Boolean = True)
Dim TxtLog As System.IO.StreamWriter
Dim Hoy

Hoy = Split(Now.ToShortDateString, "/", -1, 1)
TxtLog = System.IO.File.AppendText(txt & Hoy(2) & _
Hoy(1) & _
Hoy(0) & _
".log")
TxtLog.WriteLine(str)
TxtLog.Close()

If Len(Log.Text) > 20000 Then
Log.Text = Mid(Log.Text, Len(Log.Text) / 2)
End If

If (Len(Log.Text) > 0) And addnewline Then
Log.Text = Log.Text & vbNewLine
End If

Log.Text = Log.Text & str
Log.SelectionStart = Len(Log.Text) + Len(str)
Log.SelectionLength = 0
Log.ScrollToCaret()

End Sub


El script hace lo siguiente : genera un fichero plano con extension
.LOG y con la fecha del dia ejem "20050630.log" y muestra la linea
añadida en un TextBox llamado "Log"

lo que deseo es que el .LOG del dia anterior se convierta en archivo de
solo lectura y a la vez que que sea oculto

Para ello debo de variar un poco la funcion haciendo que verifique si
existe el fichero al que voy a cambiar los atributos, eso lo se solo me
falta saber como establecerle esas propiedades

Muchas gracias por la atencion prestada
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida