Hi,
the code looks OK, but I get "Internal server error".
You see, I check if the file exists. Any idea what is wrong?
the code looks OK, but I get "Internal server error".
B4X:
For iz=0 To cr.Rowcount-1
cr.position=iz
no=cr.GetInt ("no")
s=Main.photonumber & "_" & no & ".mp3"
Log (s)
If File.Exists (Main.outdir,s) Then
Dim sx As String
sx=s
myFiles.Put (sx,"Voice Tag " & no)
End If
Next
Log (myFiles.Size)
fb.UploadToTimeline(Main.outdir, myFiles)
You see, I check if the file exists. Any idea what is wrong?