Recuperando o nome da pasta

[renan.mafra 0]

Olá pessoal,

 

Tenho uma váriavel que armazenará diferentes paths, exemplo:

 

vcaminho1= "'C:\inetpub\wwwroot\site01\brunasouza"

vcaminho2= "'C:\inetpub\wwwroot\site01\palomaduarte"

vcaminho3= "C:\inetpub\wwwroot\site01\madonna"

 

Gostaria de isolar apenas o último nome que é o nome da pasta ex:

 

vpasta1= brunasouza

vpasta2= palomaduarte

vpasta3= madonna

 

estou tentando usando inStr e InstrREV mais não estou conseguindo...

 

eu já consegui fazendo assim:

 

vname = server.MapPath(".")

 

'JEITO 1

'//============================================================

dim fs

set fs=Server.CreateObject("Scripting.FileSystemObject")

Response.Write(fs.GetBaseName(vname & "<br>"))

set fs=nothing

 

mais creio eu que o consumo de processamento seria maior abrindo o objeto FSO

 

Alguém pode ajudar aí pessoal ??

[Mário Monteiro 179]

Isto é fico antes do nome da pasta?

 

C:\inetpub\wwwroot\site01\

 

Se for nem precisa de inStr e InstrREV

 

Bastaria um MID(Var, Caracteres)

 

Onde em caracteres iria o numero de caracteres até a ultima barra