30 lines
1.4 KiB
VB.net
30 lines
1.4 KiB
VB.net
Public Class RegistroLocal
|
|
Public Shared Sub AñadirAlRegistroLocal(ByVal rutaConNombreDeArchivo As String, ByVal textoQueSeAñade As String)
|
|
Dim i As Integer = 0
|
|
Dim hecho As Boolean = False
|
|
Dim carpeta As String = IO.Path.GetDirectoryName(rutaConNombreDeArchivo)
|
|
Dim archivo As String = IO.Path.GetFileNameWithoutExtension(rutaConNombreDeArchivo)
|
|
Dim extension As String = IO.Path.GetExtension(rutaConNombreDeArchivo)
|
|
Dim fechaHora As String
|
|
Dim nombreArchivoResultante As String
|
|
If Not IO.Directory.Exists(carpeta) Then
|
|
IO.Directory.CreateDirectory(carpeta)
|
|
End If
|
|
|
|
While i < 3 AndAlso Not hecho
|
|
i += 1
|
|
fechaHora = Now.ToString("yyyy-MM-dd--HH-mm-ss.fff")
|
|
nombreArchivoResultante = carpeta & "\" & archivo & "-" & fechaHora & extension
|
|
|
|
Try
|
|
Using escritor As IO.StreamWriter = IO.File.AppendText(nombreArchivoResultante)
|
|
escritor.WriteLine(String.Format("{0} {1} {2}{3}", Now.ToShortDateString, Now.ToShortTimeString, Environment.NewLine, textoQueSeAñade))
|
|
End Using
|
|
hecho = True
|
|
Catch ex As Exception
|
|
'Nada, a propósito, ya que está diseñado para usar otro nombre de archivo si hace falta. Siempre debería dejarse registro en archivo.
|
|
End Try
|
|
End While
|
|
End Sub
|
|
End Class
|