VB6 Code - Fungsi Untuk Mendapatkan Directory System

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory system.

'Fungsi untuk mendapatkan directory system:
Function GetSystemPath() As String
    GetSystemPath = Environ("WinDir") & "\System32"
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory system:
Private Sub Form_Load()
    MsgBox GetSystemPath 'menghasilkan C:\Windows\System32 jika windows _
    terinstall pada drive C:\ dan menghasilkan D:\Windows\System32 jika _
    Windows terinstal pada drive D:\ dan seterusnya.
End Sub