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

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.

200123
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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í).
OFF2000 off2k vb jazyk vba vbe

Upozornění: Tento článek byl přeložen automaticky

Vlastnosti

ID článku: 200123 - Poslední kontrola: 02/28/2014 16:52:07 - Revize: 5.2

  • Microsoft Excel 2000 Standard Edition
  • Microsoft Access 2000 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft Word 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbhowto KB200123 KbMtcs
Váš názor