PDA

View Full Version : پیدا کردن نام درایو بعد از ویندوز



xrezax
یک شنبه 27 شهریور 1390, 17:09 عصر
دوستان من یک تکست باکس دارم و یک کامند
می خوام وقتی روی کامند کلیک کردم توی تکست باکس اسم درایو بعد ویندوز نوشته بشه مثلاً درایو D بنویسه

محسن واژدی
یک شنبه 27 شهریور 1390, 17:23 عصر
سلام
میتوانید با apiی GetWindowsDirectoryو مانند این نام درایو ویندوز را بدست بیاورید که طبیعتا" پس از بدست آوردن نام درایو ویندوز نام پس از آنرا هم میتوانید بدست آورید

موفق باشید

xrezax
یک شنبه 27 شهریور 1390, 17:37 عصر
ممنونت میشم یه مثالی بزنی واسم

محسن واژدی
یک شنبه 27 شهریور 1390, 17: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, 18: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