OFF2000: Makro získání Windows a složky systému Windows

Překlady článku Překlady článku
ID článku: 200123 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Operační systém Microsoft Windows poskytuje dvě rutin, které lze volat programy Microsoft Office 2000 získat \Windows a složky \Windows\System.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Při spuštění systému nastaví proměnné prostředí zvláštní nazývá ADRESÁŘ_SYSTÉMU_WINDOWS s cestou, ze kterého byl spuštěn Windows. Následující makro instrukce můžete použít k zaúčtování složky Windows zprávou.
MsgBox Environ$("WINDIR")
					
Existuje však žádný argument složku \System vrátit při použití této metody. Následující příklady používají volání rozhraní API Windows vrátit složek \Windows a \Windows\System.

Následující příklad makra načte složky \Windows a \Windows\System a vytiskne do okna ladění (okamžité) v aplikaci Visual Basic pro Applications 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
				
Vytvořit makro a umístěte následující kód do rutinní.
   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
				
Pokud ladicím okně není zobrazen, v aplikaci Visual Basic pro Applications Editor v nabídce Zobrazit klepněte Okno Immediate (nebo okno ladění).

Vlastnosti

ID článku: 200123 - Poslední aktualizace: 28. února 2014 - Revize: 5.2
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Access 2000 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft Word 2000 Standard Edition
Klíčová slova: 
kbnosurvey kbarchive kbmt kbhowto KB200123 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:200123

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