ACHAR PROGRAMA SEM SABER O DIRETORIO
tpw usando shell eu consigo achar o q e quero mais eu soh consigo quando eu sei o diretorio certo mais c eu colocar isso em outra makina eu n vo saber o diretorio do programa q esta la entao o shell nao vai funcionar
eu to querendo saber como q faria para o scrip procurar pelo nome e abri
Obrigado
Teste e tente usar
Function LocalizarCaminho(Aplicativo as string) as String
LocalizarCaminho= Procurar("c:\",aplicativo)
end function
Function Procurar(Pasta,Arquivo)
dim s as string
dim a as string
dim t as string
static tt as string
if right(Pasta,1) "\" then a = "\"
s = dir(Pasta & a & arquivo,vbdirectory)
do
if s = arquivo then
Procurar = Pasta & a & arquivo
Exit Function
end if
if s = "" then exit do
if Pasta & a & s "." and Pasta & a & s ".." then
if GetAttr(Pasta & a & s) = vbdirectory then
tt = pasta & a & s
t = Procurar(Pasta & a & s,arquivo)
s = dir(Pasta & a & arquivo,vbdirectory)
do
if s = tt then exit do
s = dir
loop
if t "" then
Procurar = t
exit function
end if
end if
end if
s = dir
loop
Function LocalizarCaminho(Aplicativo as string) as String
LocalizarCaminho= Procurar("c:\",aplicativo)
end function
Function Procurar(Pasta,Arquivo)
dim s as string
dim a as string
dim t as string
static tt as string
if right(Pasta,1) "\" then a = "\"
s = dir(Pasta & a & arquivo,vbdirectory)
do
if s = arquivo then
Procurar = Pasta & a & arquivo
Exit Function
end if
if s = "" then exit do
if Pasta & a & s "." and Pasta & a & s ".." then
if GetAttr(Pasta & a & s) = vbdirectory then
tt = pasta & a & s
t = Procurar(Pasta & a & s,arquivo)
s = dir(Pasta & a & arquivo,vbdirectory)
do
if s = tt then exit do
s = dir
loop
if t "" then
Procurar = t
exit function
end if
end if
end if
s = dir
loop
Tópico encerrado , respostas não são mais permitidas