lo que pasa es que al hacer esto :


estas comparando:

 right(linea,9) con "\ortofoto"

que en este caso son lo mismo porque la función right toma la cantidad de caracteres desde la derecha, del texto que le envías como parámetro, es por esto que el valor true se guarda en la variable directorioFerFull.

Algo que puedes hacer es usar la función InstrRev que te devuelve la posición de una cadena dentro de otra, pero comenzando desde el final, un ejemplo usando tu caso:


lo puse detallado para que se entienda , ruta guarda la ruta, pos guarda la posición de la primera aparición de "\", pero buscando desde el final de la cadena, nruta guarda el valor que le devuelve la función left, que toma la cantidad de caracteres,desde la izquierda, que le envías como parámetro (en este caso pos -1, es decir 14) de la cadena que también se le envía como parámetro (en este caso la ruta).

esto funciona para cualquier ruta que le envies, a menos que le envies una ruta como esta:

"L:\programacion\FICHEROS-FERFULL\ortofoto\", como tiene un "\" al final te devolverá "L:\programacion\FICHEROS-FERFULL\ortofoto", que al final sería lo mismo, para eso primero deberías poner una condición, pero creo que ya le estoy dando muchas vueltas al asunto, espero que me hayas entendido  

Y aquí lo que te ahorrará muchas líneas 

msgbox objfolder.parentfolder.self.path

parentfolder se utiliza justo para lo que buscas, mostrar la carpeta dentro de la cual esta una carpeta o archivo

Saludos

Amigo yo tengo un pequeño problema, tengo un archivo de texto pero no se como puedo hacer para leer solo un pedaso de la linea de texto
Ejemplo
servername=SERVERS

Quiero que mi script solo lea el texto que esta despues de servername=
es decir quiero que me devuelva el texto SERVERS o el texto que este escrito en esa linea, agradezco de antemano tu ayuda eres un genio estuve leyendo algunos post pero no me queda claro, el script que estuve intentado ahcer no me funciono, te lo dejo aqui abajo gracias

*************************
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.opentextfile("servername.cdw",1)
archivotexto.skipline   
msgbox archivotexto.read(8)               
archivotexto.close
******************************