View Full Version : پیدا کردن نام درایو بعد از ویندوز
xrezax
یک شنبه 27 شهریور 1390, 18:09 عصر
دوستان من یک تکست باکس دارم و یک کامند
می خوام وقتی روی کامند کلیک کردم توی تکست باکس اسم درایو بعد ویندوز نوشته بشه مثلاً درایو D بنویسه
محسن واژدی
یک شنبه 27 شهریور 1390, 18:23 عصر
سلام
میتوانید با apiی GetWindowsDirectoryو مانند این نام درایو ویندوز را بدست بیاورید که طبیعتا" پس از بدست آوردن نام درایو ویندوز نام پس از آنرا هم میتوانید بدست آورید
موفق باشید
xrezax
یک شنبه 27 شهریور 1390, 18:37 عصر
ممنونت میشم یه مثالی بزنی واسم
محسن واژدی
یک شنبه 27 شهریور 1390, 18:49 عصر
نمونه زیر را بررسی کنید:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim win_drv$
win_drv$ = String(255, Chr(0))
GetWindowsDirectory win_drv$, 255
MsgBox "Next drive: " & Chr(Asc(Left(win_drv$, 1)) + 1)
End Sub
موفق باشید
setroyd
یک شنبه 27 شهریور 1390, 19:09 عصر
vb]]
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
Dim Buffer As String
Me.AutoRedraw = True
Buffer = String(255, 0)
GetLogicalDriveStrings 255, Buffer
For hh = 1 To 100
If Left$(Buffer, InStr(1, Buffer, Chr$(0))) = Chr$(0) Then Exit For
Me.Print Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
Buffer = Right$(Buffer, Len(Buffer) - InStr(1, Buffer, Chr$(0)))
Next hh
End Sub
[[/vb
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.