OFF97: Macro para obtener Windows y directorios del sistema de Windows

Seleccione idioma Seleccione idioma
Id. de artículo: 170728 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

El sistema de operativo Microsoft Windows proporciona dos rutinas que pueden ser llamadas por programas de Microsoft Office 97 para obtener el de Windows y los directorios de Windows.

Más información

Microsoft proporciona ejemplos de Visual Basic para aplicaciones procedimientos con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. Los procedimientos Visual Basic en este artículo se proporcionan "tal cual" y Microsoft no garantiza que se pueden utilizar en todas las situaciones. Aunque los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de una macro determinada, no modificarán estos ejemplos para proporcionar funcionalidad agregada ni le ayudan a crear macros para satisfacer sus necesidades específicas. Si tiene poca experiencia en programación, desea consulte uno de los proveedores de soluciones de Microsoft. Proveedores de soluciones ofrecen una amplia gama de servicios basados en la cuota, incluida la creación macros personalizadas. Para obtener más información acerca de Microsoft Solution Providers, llame al Microsoft Customer Information Service (800) 426-9400.

Cuando se inicie Windows, se establece una variable de entorno especial denominada "windir" con la ruta de acceso desde el que se inició Windows. Puede utilizar la siguiente instrucción de macro para registrar el directorio de Windows en un cuadro de mensaje.
MsgBox Environ$("windir")
Sin embargo, no hay ningún argumento para devolver el directorio System de Windows cuando se utiliza este método. Los ejemplos siguientes utilizan llamadas a la API de Windows para devolver directorios el sistema de Windows y de Windows.

La siguiente macro de ejemplo recupera los directorios de Windows y Windows System y imprime ellos en la ventana depuración (Inmediato) dentro de Visual Basic para aplicaciones Editor.
' Place these declarations in the General Declarations procedure of a
' Visual Basic for Applications module.

   Declare Function GetWindowsDirectoryA Lib "Kernel32" _
   (ByVal lpBuffer As String, ByVal nSize As Long) As Long
   Declare Function GetSystemDirectoryA Lib "Kernel32" _
   (ByVal lpBuffer As String, ByVal nSize As Long) As Long
				
crear una macro y colocar el código siguiente en la rutina.
   Sub GetOSDirs()
      Dim sBuf As String
      Dim cSize As Long
      Dim retval As Long
      sBuf = String(255, 0)
      cSize = 255

      ' Get Windows Directory.
      retval = GetWindowsDirectoryA(sBuf, cSize)
      sBuf = Left(sBuf, retval)
      Debug.Print sBuf

      ' Get System Directory.
      sBuf = String(255, 0)
      cSize = 255
      retval = GetSystemDirectoryA(sBuf, cSize)
      sBuf = Left(sBuf, retval)
      Debug.Print sBuf
   End Sub
				
si no está visible la ventana depuración, a continuación, mientras en el Visual Basic para aplicaciones (Editor), en el menú Ver, haga clic en ventana Inmediato (o ventana de depuración).

Propiedades

Id. de artículo: 170728 - Última revisión: viernes, 07 de febrero de 2014 - Versión: 3.3
La información de este artículo se refiere a:
  • Microsoft Word 97 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbcode kbhowto KB170728 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 170728

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com