Pegando caminho do arquivo (Resolvido)

[Lucas Conceição]

Bom dia a todos,

Gostaria de saber se alguém sabe como posso pegar só o caminho do arquivo.

Por exemplo:

D:\Lucas\Arquivos\teste.txt

e eu gostaria de pegar só ---> D:\Lucas\Arquivos\

Alguém sabe o que eu posso fazer?

EDIT.

PEssoal ta resolvido aqui,

Vou postar o código. FOi um amigo meu que me mandou.

Function GetPathName(strFile As String) As String
 'return the path for a file (folder only) 
     Dim fso
     Set fso = CreateObject("Scripting.FileSystemObject")

     GetPathName = fso.GetParentFolderName(strFile)
End Function

Variable FileName holds full path name + name of the file

Dim pat As String
       pat = GetPathName(FileName)    ' return only pat to the folder

Editado Fevereiro 18, 2011 por Lucas Conceição