Sub Process_Globals
Dim Up As UploadFilePhp
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
If FirstTime Then
Up.Initialize("Up")
End If
End Sub
Private Sub Button1_click
phpUrl="http://localhost/your_folder/upload_file.php"
Dim phoneDocPath As String = File.DirInternal & "/"
Dim docName As String="xxxxxx.xxx"
Up.doFileUpload( Null,Null,phoneDocPath & docName, phpUrl)
End Sub