Mengambil Direktori Sistem Windows

Serba ragamnya nama dan lokasi direktori sistem di bawah direktori Windows (yang namanya juga bisa berbeda; ada yang "Windows"; ada juga yang "WinNT") di setiap jenis sistem operasi Windows, membuat programmer sering kebingungan untuk memastikan lokasi direktori sistem di suatu sistem operasi Windows itu ada di mana. Termasuk nama untuk direktori sistem itu sendiri; ada sistem operasi yang menggunakan nama "System", tapi ada juga yang menggunakan nama "System32" Belum lagi jika misalnya sistem operasi Windows tidak diinstall di C: atau tidak di C:\Windows (memang bisa gitu?), maka bagaimana untuk memastikan lokasi direktori system itu sebenarnya ada di mana? Tapi tidak perlu khawatir berlebihan, karena source code berikut akan mengatasi semua kesulitan itu.

Code::

'Deskripsi: Menampilkan direktori system dalam sistem operasi Windows 'Persiapan: 1. Buat satu project exe standar dengan satu form '               2. Tambahkan satu Commandbutton ke atas form '               3. Copy-kan code berikut ke editor form yang bertalian '---------------------------------------------------------------------   Private Declare Function GetSystemDirectory Lib "kernel32.dll" _                 Alias "GetSystemDirectoryA" _                 (ByVal lpBuffer As String, _                 ByVal nSize As Long) As Long   Private Sub Command1_Click()   Dim windir As String 'deklarasi variabel utk direktori   Dim slength As Long  'deklarasi variabel utk panjang   windir = Space(255)  'sediakan buffer untuk menerima string   'ambil nilai dari function API GetSystemDirectory   slength = GetSystemDirectory(windir, 255)   windir = Left(windir, slength)  'extract string dari buffer   'Tampilkan:   MsgBox "Direktori sistem ada di: " & windir, vbInformation End Sub