VB6 Code - Fungsi Untuk Mendapatkan Directory Program Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory Program Files.

'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