Buscar por:

Como pegar uma pasta

Código

Muitas vezes nos deparamos com situações em que precisamos pegar a pasta acima da que se encontra o nosso executável, por exemplo: o caminho do meu executável é "C:Usersseventeste.exe", digamos que eu queira pegar uma informação contida num arquivo txt que está na pasta "C:Users"(nesse caso), como fazer? Descobri isso xeretando a função extractfilepath, onde encontrei a função lastdelimiter que usei para fazer isso:

Copy(ExtractFileDir(Application.ExeName), 1, LastDelimiter('', ExtractFileDir(Application.ExeName)));

No caso o retorno desse copy vai ser um nível acima da pasta em que está o executável.