Spanish Saber el nombre de archivos recibidos por AsyncStreams SOLUCIONADO

elsanto

Member
Licensed User
Longtime User
Buenas Tardes gente: estoy enviando archivos .csv desde el pc usando wifi por medio de una app en B4J de la siguiente manera:

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
y los estoy recibiendo de la siguiente manera en B4A en el android:
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
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
B4A:
Private Sub astream_NewStream (Dir As String, FileName As String)
Desde ya muchas gracias por su tiempo
 
Last edited:
Top