Spanish [SOLUCIONADO]subir fotografia.

Sub subir_fotografia
    Dim query,fecha,hora,tipo,miniruta,q2 As String
        miniruta=""&ruta_s&"sub/upload.php"
        subir_foto.PostFile(miniruta, File.DirRootExternal & "/" , "1.jpg")
End Sub

 <?php
 
 
    $extensions = array('.jpg', '.jpeg','.JPG', '.JPEG');
    $valid_extensions = '.jpg, .jpeg';
    $extension = strrchr($_FILES['uploaded_file']['name'], '.');

    if (!in_array($extension, $extensions))
    {
    $rawdata[$i]['respuesta'] ="Fallo_EXTENCION";
    }
 
 
 
 
    $file_path =""; // "uploads/";
    $i=0;
   
    $file_path = $file_path . basename( $_FILES['uploaded_file']['name']);
    if(move_uploaded_file($_FILES['uploaded_file']['tmp_name'], $file_path)) {
        $rawdata[$i]['respuesta'] ="upload";
    } else{
        $rawdata[$i]['respuesta'] ="Fallo";
    }
   
       $myArray =$rawdata;
        echo json_encode($myArray);
?>

Sub Activity_Create(FirstTime As Boolean)

ftp.Initialize("FTP", "ftp.mihost", 21, "mi_usuario", "mi_contraseña")
...
ftp.UploadFile(File.DirAssets, "mi_foto.jpg",False,"archivo_destino_ en_ serdivor" )
end sub

ftp.SendCommand("MKD","nombre_del_directorio_que_voy_a_crear")

Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
        Dim a As String
        a = "Uploaded " & Round(TotalUploaded / 1000) & "KB"
        If Total > 0 Then a = a & " out of " & Round(Total / 1000) & "KB"
        Log(a)
       toasmensajeshow("Subiendo Archivos. Por Favor Espere. " & "Archivo: " & Round(TotalUploaded / 1000 & "KB", false)
End Sub

Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
        Log(ServerPath & ", Success=" & Success)
        If Success = False Then
          Log(LastException.Message)
        else
          ToastMessageShow("Archivo subido con exito!", False)
        end if
End Sub

ftp.Initialize("FTP", variableA, 21, variableB, variableC)