Başlangıç > Kodlar > Visual Basic 6 ile Sistem dizininin bulunması

Visual Basic 6 ile Sistem dizininin bulunması


Sistem Dizininin Bulunması

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

F5 tuşuna basıp kodu RUN ederseniz bir message box içinde system dizininin nerede olduğunu size söyleyecektir.

Gurkan YENICERI


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: