Buenas Tardes gente: estoy enviando archivos .csv desde el pc usando wifi por medio de una app en B4J de la siguiente manera:
y los estoy recibiendo de la siguiente manera en B4A en el android:
La gran pregunta se puede saber el nombre de cada archivo enviado para copiarlo con el nombre que fue enviado desde el pc ? por que cuando hace el raf le pone numeros al nombre del archivo recibido
Desde ya muchas gracias por su tiempo
B4J:
Sub btnSendFile_Action
astreamO.WriteFile("file", "c:\sist\archivos\","articuloc.csv")
astreamO.WriteFile("file", "c:\sist\archivos\","articulo.csv")
astreamO.WriteFile("file", "c:\sist\archivos\","novedad.csv")
astreamO.WriteFile("file", "c:\sist\archivos\","operador.csv")
End Sub
B4A:
'Dim DirectorioMod As String : DirectorioMod = File.DirRootExternal & "/sist/mod/"
'Dim CSVArticulo As String : CSVArticulo = "articulo.csv"'
Sub astreamO_NewObject(Key As String, Value As Object)
Log ("mensaje:" & Key)
Select Key
Case "form"
Dim p As Person = Value
txtFirst.Text = p.First
txtLast.Text = p.Last
txtAnimal.Text = p.Animal
Case "file"
Dim fileName As String = Value
Log ("vuelve aca:" & Value)
Log ("fileName" & fileName)
'copio el archivo recibido al /sist/mod ' external'
File.Copy(astreamO.TempFolder, fileName, DirectorioMod, fileName)
'borro el temporal
File.Delete(astreamO.TempFolder, fileName)
lvLog.AddSingleLine("Nombre Archivo:" & fileName )
End Select
End Sub
B4A:
Private Sub astream_NewStream (Dir As String, FileName As String)
Last edited: