Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(46)) Then
Dim sRenglon As String = Nothing
Dim strStreamW As Stream = Nothing
Dim strStreamWriter As StreamWriter = Nothing
Dim ContenidoArchivo As String = Nothing
' Donde guardamos los paths de los archivos que vamos a estar utilizando ..
Dim PathArchivo As String
Dim i As Integer
Try
If Directory.Exists("C:\Estadistica") = False Then ' si no existe la carpeta se crea
Directory.CreateDirectory("C:\Estadistica")
End If
Dim numero As New Random
Dim minumero As Integer = numero.Next(0, 1000000)
Windows.Forms.Cursor.Current = Cursors.WaitCursor
PathArchivo = "C:\Estadistica\" & minumero & ".txt" ' Se determina el nombre del archivo con la fecha actual
'verificamos si existe el archivo
If File.Exists(PathArchivo) Then
strStreamW = File.Open(PathArchivo, FileMode.Open) 'Abrimos el archivo
Else
strStreamW = File.Create(PathArchivo) ' lo creamos
End If
strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default) ' tipo de codificacion para escritura
'escribimos en el archivo
strStreamWriter.WriteLine("1 reproduccion")
strStreamWriter.Close() ' cerramos
Catch ex As Exception
MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName)
strStreamWriter.Close() ' cerramos
End Try
End If
Dim counter = My.Computer.FileSystem.GetFiles("C:\Estadistica").Count
If counter <> 0 Then
'MsgBox(counter)
Me.cantidad.Text = counter
End If
End Sub
Private Sub FrmInicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub