Obtener c:\archivos de programa

[USUARIO_DE_SOFTWARE_LIBRE]

Hola, estoy programando un kill av (en vb), necesito obtener la ruta "C:\archivos de programa". Busqué en google y en el api-guide y no encontré ninguna api para obtener esta ruta... Entonces lo que hago es:

Código [Seleccionar] Expandir


shell "echo %programfiles% > c:\archivo.txt"

luego leo c:\archivo.txt  y ahí tengo la ruta de la preciada carpeta... Yo tengo windows xp professional y me pone 3 caracteres adelante de la carpeta (por ejemplo escribe esto: "c:\archivos de programa   ", sin las comillas) y se los saco porque no sirven. Quiero saber si alguno de ustedes que tenga otra versión de windows cómo es que lo escribe la shell, osea, si le pone 3 caracteres inútiles al final de la ruta o que otra cosa... O si por casualidad saben alguna api para obtener la ruta
Saludos y gracias
pd: creo que este tema iba en virus y troyanos... perdón si me equivoqué

[DrakoX]

hola,
yo publique en otro foro un par de codigos que  hice que se podrian poner en algun worm o algo,
estoy seguro que te van a servir.

Codigos


salu2 y suerte

[Hendrix]

Código [Seleccionar] Expandir

Dim ruta As String

ruta = Environ("programfiles")
MsgBox ruta

Salu2

[USUARIO_DE_SOFTWARE_LIBRE]

Después busco tu post y lo leo, gracias
muchisimas gracias Hendrix ! lo probé y me anda a la perfección

[soplo]

Rutinas interesantes
http://foro.elhacker.net/index.php/topic,139883.0.html

RTFM