Tip VB - Bagaimana Menentukan Direktory File sistem Windows

Banyak sekali lokasi dan nama direktory Windows di setiap jenis sistem operasi Windows, membuat programmer sering bingung 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

Berikut Source code vb Untuk Menampilkan direktori system dalam sistem operasi Windows
yang dibuat oleh Pak Masino Sinaga :

'Deskripsi: Menampilkan direktori system dalam sistem operasi Windows
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'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

Read this | Baca yang ini

Widget by [ Cak Win ]