Kode Untuk Mendapatkan Directory Program Files pada VB6

Pada kali ini admin akan berbagi sebuah kode yang akan mendapatkan sebuah directory pada program files pada komputer Anda tergantung dimana program files tersebut terinstal di C atau di D.

Berikut dibawah ini adalah kode untuk menampilkan Directory Program File pada VB6 :

'Fungsi untuk mendapatkan directory Program Files:

Function GetProgramFilesPath() As String

   GetProgramFilesPath = Environ("ProgramFiles")

End Function

'Contoh Fungsi untuk mendapatkan directory program files:

Private Sub Form_Load()

   MsgBox GetProgramFilesPath

   'Maka akan menghasilkan C:\Program Files jika windows Anda terinstall _

   pada drive C:\

   'atau D:\Program Files jika windows Anda terinstall pada drive D:\

   'dan seterusnya.

End Sub

Setelah itu jalankan project anda dan hasilnya akan tampak pada gambar dibawah ini :

output

Demikian artikel pada hari ini semoga bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.