You can both take the file path and treat:
Dim caminhoArquivo, segmentosCaminhoArquivo, nomeArquivo, caminhoPastaAtual
caminhoArquivo = Wscript.ScriptFullName
segmentosCaminhoArquivo = Split(caminhoArquivo, "\")
nomeArquivo = segmentosCaminhoArquivo(UBound(segmentosCaminhoArquivo))
caminhoPastaAtual = Left(caminhoArquivo, Len(caminhoArquivo) - Len(nomeArquivo))
Or even take the current directory when instantiating an object:
Set objShell = CreateObject(“Wscript.Shell”)
caminhoPastaAtual = objShell.CurrentDirectory
From there, you can use the relative path with:
caminhoOutraPasta = caminhoPastaAtual & "..\pastaIrma\"
caminhoOutraPasta2 = caminhoPastaAtual & "pastaFilha"
I hope I helped the/