Sub ReceiveFileName (Buffer() As Byte)
Dim J As Byte = 0
Dim Anio, mes, hora, Dia, minutos As Object
Log("Bufer File: ",Buffer)
Log("Trim: ", bc.Trim(Buffer))
For Each s() As Byte In bc.Split(Buffer, "/")
j = j + 1
Select J
Case 1
Anio = bc.stringfrombytes(s)
Case 2
mes = bc.stringfrombytes(s)
Case 3
Dia = bc.stringfrombytes(s)
Case 4
hora = bc.stringfrombytes(s)
Case 5
minutos = bc.stringfrombytes(s)
End Select
Log("Split: ", s, "Posicion: ", J)
Next
Log("Año: ",Ano," Mes: ",mes," Dia: ",Dia," Hora: ",hora," Min: ",minutos)
DateTimes(Anio,mes,Dia,hora,minutos)
void_loop.Enabled = True
End Sub
Sub DateTimes(Anio As Object, mes As Object, Dia As Object, Horas As Object, Minutos As Object)
.
.
.