Pregunta

La aplicación de un cliente " AppName " tiene sus archivos de configuración almacenados en CommonAppData.

  • En Windows XP que es C: \ Documents and Settings \ All Users \ Application Data \ AppName
  • En Windows Vista que es C:\ProgramData\AppName

¿Cómo obtengo el nombre de carpeta correcto con VBScript?

¿Fue útil?

Solución 

Const CommonAppData = &H23&  ' the second & denotes a long integer '

Set objShell  = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CommonAppData)

Set objFolderItem = objFolder.Self

MsgBox objFolderItem.Name & ": " & objFolderItem.Path

El MSDN tiene una página que enumera los otros Shell Special Constantes de carpeta .

Esta página también es agradable: Enumeración de carpetas especiales , parte de la Guía de secuencias de comandos de Microsoft Windows 2000.

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top