VB6: Get Windows and System Directories

Posted: Mei 3, 2008 in VB 6

Untuk mengetahui nama Windows Direktori dan Windows System Direktori dari OS windows yang kita pakai dapat menggunakan funsi api yang telah tersedia.

Jika kita membuat project yang mungkin akan menggunakan kedua direktori tersebut, secara umum sebenarnya kita bisa saja langsung mengatakan atau memperkirakan direktori windows adalah C:\Windows akan tetapi bagaimana kalau ternyata diinstall didirektori d (D:\Windows) atau malah nama direktorinya bukan menggunakan nama Windows akan tetapi Windows00. Kemudian untuk direktori Windows System biasanya adalah C:\Windows\System32, tapi bagaimana kalau ternyata versi windowsnya bukan generasi NT (NT, 2000, XP, 2003, dst..) akan tetapi Windows 98, yang direktori systemnya adalah Windows System. Nah agar flexible kita dapat memanfaatkan funsi API seperti dibawah ini :

Buat module, kemudian copy code debawah ini :

Private Declare Function GetWindowsDirectory _
    Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
        ByVal lpBuffer As String, _
        ByVal nSize As Long) _
    As Long

Private Declare Function GetSystemDirectory _
    Lib "kernel32" Alias "GetSystemDirectoryA" ( _
        ByVal lpBuffer As String, _
        ByVal nSize As Long) _
    As Long
Private Function GetSysDir() As String
    Dim Temp As String * 256
    Dim x As Integer
    x = GetSystemDirectory(Temp, Len(Temp)) 
    GetSysDir = Left$(Temp, x)              
End Function

Private Function GetWinDir() As String
    Dim Temp As String * 256
    Dim x As Integer
    x = GetWindowsDirectory(Temp, Len(Temp)) 
    GetWinDir = Left$(Temp, x)               
End Function

Cara menggunakan:
Dim WinDir As String
WinDir = GetWinDir

Dim WinSysDir as String
WinSysDir = GetSysDir

Pustaka :
http://www.vbexplorer.com/VBExplorer/tips/src29.asp

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s