Yazdığınız programlar eğer ini dosyalarını değiştiriyorsa yada programınız içinden işletim
sisteminin, sistem dizinini öğrenmek istiyorsanız aşağıdaki kodu kullanabilirsiniz.
Bu kodu MS Visual Basic içinde Projects/Add Module menüsünden yeni ekleyeceğiniz bir modül içine yada projeniz içinde bulunan bir module kopyalayın.
Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Şimdiki koduda General Declerations kısmından itibaren kopyalayın
Option Explicit
Function VBSysDir() As String
Dim Gwdvar As String, Gwdvar_Length As Integer
Gwdvar = Space(255)
Gwdvar_Length = GetSystemDirectory(Gwdvar, 255)
VBSysDir = Left(Gwdvar, Gwdvar_Length)
End Function
Private Sub Form_Load()
MsgBox VBSysDir & " is the System Directory", vbInformation, "System Directory"
End Sub
sisteminin, sistem dizinini öğrenmek istiyorsanız aşağıdaki kodu kullanabilirsiniz.
Bu kodu MS Visual Basic içinde Projects/Add Module menüsünden yeni ekleyeceğiniz bir modül içine yada projeniz içinde bulunan bir module kopyalayın.
Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Şimdiki koduda General Declerations kısmından itibaren kopyalayın
Option Explicit
Function VBSysDir() As String
Dim Gwdvar As String, Gwdvar_Length As Integer
Gwdvar = Space(255)
Gwdvar_Length = GetSystemDirectory(Gwdvar, 255)
VBSysDir = Left(Gwdvar, Gwdvar_Length)
End Function
Private Sub Form_Load()
MsgBox VBSysDir & " is the System Directory", vbInformation, "System Directory"
End Sub
