Jumat, 19 Oktober 2012

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

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah