Sub SubeFoto
If DatosConectados.WiFi = True Then 'COMPRUEBA CONEXIÓN WIFI
Dim MyPath As String
MyPath = File.DirRootExternal & "/CarpetaDondeEstaLaFoto/" 'PREGUNTA SI EL DIRECTORIO EXISTE ESTA CARPETA DEBE ESTAR EN LA RAÍZ
If File.Exists(MyPath, "") = False Then
ToastMessageShow("La ruta no existe", True)
Else
FTP.SendCommand("MKD", "/Nombre Carpeta" 'CREA CARPETA NOMBRE QUE SEA QUE TU QUIERAS EN EL SERVIDOR
ImagenSelec = NOMBRE DE IMAGEN
FTP.UploadFile(MyPath, ImagenSelec, False, "/NOMBRE CARPETA SERVIDOR/"&ImagenSelec) 'SUBE FOTO AL SERVIDOR
End If
End If
End Sub