Pomocou objektu FileSystemObject
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Debug.Print
fso.GetSpecialFolder(x).Path 'pre
vb6
Console.Writeline fso.GetSpecialFolder(x).Path 'pre
vb.net
Set fso = Nothing
V kóde nahraďte premennú x
číslicami podža toho, ku ktorému adresáru potrebujete vedie
cestu.
Hodnoty x:
0
= hlavný adresár Windows (napr.: c:\WINDOWS)
1 = systémový
adresár Windows (\system32)
2 = adresár dočasných súborov
(\TEMP)