Pada pertemuan kali ini saya akan berbagi code masih sekitar File Directory, namun pada artikel ini Saya akan membagikan sebuah kode untuk mendapatkan Directory System pada Windows.
Berikut dibawah ini adalah gambar hasil dari kode VB6 yang menampilkan Directory Sytem pada Windows Anda.
 |
Directory System32 |
Untuk mendapatkan seperti pada gambar diatas, Anda cukup buka Form VB6, kemudian pada Form1 ketik kode dibawah ini :
'Fungsi untuk mendapatkan directory system
Function GetSystemPath() As String
GetSystemPath = Environ("SystemRoot") & "\System32"
End Function
'Contoh penggunaan fungsi untuk mendapatkan directory system
Private Sub Form_Load()
MsgBox GetSystemPath
'Maka akan ditampilkan C:\Windows\System32 jika Anda menginstall _
windows pada drive C:\ atau D:\Windows\System32 jika Anda _
menginstall windows pada drive D:\ dan seterusnya.
End Sub
Setelah itu jalankan Project Anda dan hasilnya akan tampak seperti pada gambar ditas.
Demikianlah artikel singkat dari tentang Code VB6 Untuk Mendapatkan Directory System Pada Windows.
Semoga artikel ini bermanfaat buat kita semua.Amin.
Selamatmencoba semoga sukses
No comments:
Post a Comment