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

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

کد,کد های ویژوال بیسیک,سورس کد های ویژوال بیسیک,به دست اوردن مسیر پوشه ویندوز,کد کد کد,Option Explicit,Visual basic,codeVisual basic,Visual basic code,فقط کد,برنامه نويسي,آموزش برنامه نويسي,آموزش کامل برنامه نويسي,آموزش ويژوال بيسيک,ويژوال بيسيک,کد ويژوال بيسيک,سورس ويژوال بيسيک,توابع ويژوال بيسيک,تابع ويژوال بيسيک,آموزش visual basic,Programming,دانلود پروژه رايگان,دانلود رايگان پروژه,دانلود رايگان پروژه ويژوال بيسيک,دانلود رايگان پروژه visual basic,دانلود رايگان,Download Free Visual basic Project

Admin بازدید : 818 پنجشنبه 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
  • افراد آنلاین : 4
  • تعداد اعضا : 3327
  • آی پی امروز : 53
  • آی پی دیروز : 67
  • بازدید امروز : 165
  • باردید دیروز : 222
  • گوگل امروز : 6
  • گوگل دیروز : 7
  • بازدید هفته : 165
  • بازدید ماه : 3,879
  • بازدید سال : 33,352
  • بازدید کلی : 2,033,598