close
تبلیغات در اینترنت
کد به دست اوردن مسیر پوشه ویندوز در VB
loading...

آموزش برنامه نویسی

Option Explicit 'Visual Basic 6 'Www.Programming.rozblog.com Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare…

Admin بازدید : 804 پنجشنبه 26 خرداد 1390 نظرات ()
Option Explicit

'Visual Basic 6
'Www.Programming.rozblog.com
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
    Dim WindowsDir As String
    Dim SystemDir As String
    Dim TempDir As String
    Dim CurrentDir As String

    CurrentDir = Space(256)
    WindowsDir = Space(256)
    SystemDir = Space(256)
    TempDir = Space(256)
    
    GetWindowsDirectory WindowsDir, Len(WindowsDir)
    txtWindows.Text = WindowsDir
    GetSystemDirectory SystemDir, Len(SystemDir)
    txtSystem.Text = SystemDir
    GetTempPath Len(TempDir), TempDir
    txtTemp.Text = TempDir
    GetCurrentDirectory Len(CurrentDir), CurrentDir
    txtCurrent.Text = CurrentDir
End Sub
مطالب مرتبط
ارسال نظر برای این مطلب
این نظر توسط محمد در تاریخ 1392/12/8 و 17:44 دقیقه ارسال شده است

بجای اینکه فقط بیای این همه کد رو بنویسی فقط کافیه بنویسی
text1.text= Environ("Systemroot")

این نظر توسط عباس خلیلی در تاریخ 1390/3/26 و 17:28 دقیقه ارسال شده است

سالروز میلاد باسعادت مولود کعبه مبارک باد.

http://www.porojesara.ir
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
کامنت گذاری آنلاین در وبلاگ ها با بلاگــ لیچ : http://www.blogleech.com

این نظر توسط بردن بازدید بالا در تاریخ 1390/3/26 و 16:46 دقیقه ارسال شده است

سلام دوست عزیز اگر از بازدید هایت ناراحتی به وبلاگ ما بیا و فقط لینک خودت را برای ما بفرست تا بازدید وبلاگت بالا بره ممنون
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
کامنت گذاری آنلاین در وبلاگ ها با بلاگــ لیچ : http://www.blogleech.com

این نظر توسط website rasmi matin hek در تاریخ 1390/3/26 و 16:32 دقیقه ارسال شده است

سلام خوبي ؟ وبلاگ خوبي داري لطفاً به من هم سر بزن ممنون مي شم منتظرت هستم.
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
کامنت گذاری آنلاین در وبلاگ ها با بلاگــ لیچ : http://www.blogleech.com


نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • نویسندگان
    نظرسنجی
    قالب سایت؟




    بیشتر چه نوع مطالبی رو میپسندید؟





    آمار سایت
  • کل مطالب : 588
  • کل نظرات : 391
  • افراد آنلاین : 1
  • تعداد اعضا : 3326
  • آی پی امروز : 53
  • آی پی دیروز : 58
  • بازدید امروز : 233
  • باردید دیروز : 186
  • گوگل امروز : 4
  • گوگل دیروز : 8
  • بازدید هفته : 2,805
  • بازدید ماه : 9,283
  • بازدید سال : 61,271
  • بازدید کلی : 2,126,590