Versión Copiada del tfs

RegistroLocal.vb

@@ -0,0 +1,29 @@
+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