underflip

hola bueenas !, necesito ayuda con un problemilla, necesito extraer la parte de la ruta fija.. ya que el proyecto al cambiar de ubicacion puede traer dramas para ejecutarse ej: C:\Documents and Settings\Usuario\Escritorio\VmWare 7resto = vmware 7 -- esta es la parte que necesito.. si alguien pudiera ayudarme de antemano gracias !! Function Extraer() As StringDim resto As StringIf Caracter = "OCC" And InStr(Path, Caracter) = 0 Then Return Nothingresto = Right(Path, Len(Path) - InStrRev(Path,Caracter))Extraer = restiReturn Extraer

me dieron este problema para la u si alguien pudiera ayudarme porfa me lo piden en codigo para el pseint elabore un algoritmo que permita crear y cargar dos arreglos uno de largo "n" y otro de largo "m" con numeros cualquiera, luego debe ordenar cada uno de ellos. luego debe sumar estos dos arreglos (n+m) el que debera quedar ordenado sin aplicar la rutina de ordenamiento. debera imprimir el tercer arreglo empezando de la ultimo celda.