Monday, December 10, 2012

VB6 Code - Mendapatkan Directory Common Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory common files.
'Fungsi untuk mendapatkan directory common files:
Function GetCommonPath() As String
GetCommonPath = Environ("CommonProgramFiles")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory common files:
Private Sub Form_Load()
MsgBox GetCommonPath
End Sub