Getting the Windows and System Directory

Source Code :

Declare Function GetSystemDirectory Lib "kernel32" _
    Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, _
     ByVal nSize As Long) As Long
Declare Function GetWindowsDirectory Lib "kernel32" _
    Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, _
     ByVal nSize As Long) As Long
Public Function GetWindowsDir() As String
    Dim sDir As String * 255
    Dim iReturn As Integer
    Dim lSize As Long
    sDir = Space$(255)
    lSize = Len(sDir)
    iReturn = GetWindowsDirectory(sDir, lSize)
    GetWindowsDir = Left$(sDir, InStr(1, sDir, Chr$(0)) - 1)
End Function

Public Function GetSystemDir() As String
    Dim sDir As String * 255
    Dim iReturn As Integer
    Dim lSize As Long
    sDir = Space$(255)
    lSize = Len(sDir)
    iReturn = GetSystemDirectory(sDir, lSize)
    GetSystemDir = Left$(sDir, InStr(1, sDir, Chr$(0)) - 1)
End Function

Related Post :

Windows

• Runtime Error 430 - Class Does Not Support Automation or Does Not Support Expected Interface
• Register Components without using Regsvr32.exe

VB6

• Project - SMS Gateway Sederhana Dengan ActiveXpert
• Runtime Error 430 - Class Does Not Support Automation or Does Not Support Expected Interface
• Functions for calculating the Min, Max and StdDev
• Recordset Sementara Dengan Desimal
• Mengambil Log Data di Fingerprint CZKEM
• Multi Column Combo Box ActiveX
• Show Data With Store Procedure And RecordSet In VB6
• Hapus User Info di Fingerprint CZKEM
• Koneksi Fingerprint CZKEM
• Wrap Text Function (VB 6)
• Wrap Text
• Copy Paste Clipboard
• Cegah Aplikasi Visual Basic Bisa Dijalankan Dua Kali
• 10 Tips and Trick Visual Basic From Vb Bego Forum
• Mencari Tanggal Terakhir di Suatu Bulan
• Menonaktifkan tombol Maximize yang terdapat di MDIForm
• Disable Tombol Maximize di MDIForm
• Make a form with a gradient background