Friday, March 12, 2010

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