Arquivos E Caminhos

[Guest Angelo]

Tenho o seguinte:

x = "c:\Arquivos de Programas\Arquivo.Doc"

Bom, eu precisava de obter na variavel ARQUIVO o seguinte:

ARQUIVO = "Arquivo.Doc"

e na variavel caminho o seguinte:

CAMINHO = "c:\Arquivos de Programas"

Como posso fazer?

[Decio]

Ve se isso ajuda:

x = "c:\Arquivos de Programas\Outra Pasta\Mais Outra Pasta\Arquivo.Doc"
y = Len(x)

  For a = 1 To y
    ARQUIVO = Right(x, a)
    If Mid(x, y - a, 1) = "\" Then Exit For
  Next a

CAMINHO = Left(x, y - (Len(ARQUIVO)) - 1)

MsgBox ARQUIVO
MsgBox CAMINHO