Monday, December 10, 2012

VB6 Code - Fungsi Untuk Mendapatkan Directory Windows

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory windows tanpa terpengaruh oleh drive tempat Windows berada mis. C:\ D:\ dan seterusnya:
'Fungsi untuk mendapatkan directory windows
Function GetWinPath() As String
GetWinPath = Environ("WinDir")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory windows
Private Sub Form_Load()
MsgBox GetWinPath
'Maka akan ditampilkan C:\Windows jika Anda menginstall windows pada _
drive C:\ atau D:\Windows jika Anda menginstall windows pada drive D:\ _
dan seterusnya.
End Sub
Bagaimana dengan menggunakan fungsi API? bukankah lebih cepat? ehm... pertanyaan yang perlu dipertimbangkan, terutama jika kita menggunakan komputer dengan kecepatan processor di bawah Pentium I semisal DX 386.