• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 30 رای - 2.6 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کدهای ویژوال بیسیک
حالت خطی
#2
Eng:
Get Windows Directories
Persian:
به دست اوردن مسیر پوشه ویندوز
کد:
Option Explicit

'Visual Basic 6
'Www.ParsiCoders.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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
RE: سورس کدهای ویژوال بیسیک - توسط Amin_Mansouri - 04-15-2011، 11:07 PM
RE: سورس کدهای ویژوال بیسیک - توسط kalam - 05-30-2014، 12:41 AM
RE: سورس کدهای ویژوال بیسیک - توسط alikorg - 05-07-2017، 07:10 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 5,125 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 11,438 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 5,368 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 7,028 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 2,504 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 5,360 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,798 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 3,721 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 6,693 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 2,536 05-20-2014، 12:17 AM
آخرین ارسال: aleas

پرش به انجمن:


Browsing: 1 مهمان