سوال در مورد چک کردن یه درایو بر روی کامپیوتر

[javid_debugger]

سلام به دوستان

من می خواستم بدونم که چه جوری یه درایو رو چک کنم و یه فایل در اون بسازم
مثلا اینکه برنامه یه درایو رو چک کنه (درایوF) اگه بود درون اون یه فایل بسازه اگر نبود این کار رو نکنه.
ممنون.

[vahid_d_0101]

برای این کار تو سایت بحث شده که چه طوری ویروس میاد درایوهای هارد رو میشناسه و تو همشون یه فایل اوتوران میسازه یه سرچ بزن خیلی درموردش بحث شده

[xxxxx_xxxxx]

1- شما یه آدرس دارید که می خوایید ببینید اون آدرس مربوط به کدوم درایوه؟
2- یا منظورت اینه که برنامه ببینه آیا درایو F وجود داره یا نه؟

اگه منظورت دومی هست یه API وجود داره که اینکارو برات انجام میده.


Declare Function GetDriveType Lib "kernel32.dll" Alias GetDriveTypeA" (ByVal nDrive As String) As Long


در آخر مقدار خروجی رو بررسی می کنیم که یکی از مقادیر زیر است:

0: خطا
1: درایو وجود ندارد
2: فلاپی
3: هارد دیسک
4: درایو شبکه
5: CDROM
6: RAMDISK

[MFiRE]

تویه فرم کپی کنید


Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C:\
Select Case GetDriveType("C:\")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub

[sajjad_india]

سلام دوست عزیز .
به نظر من این راه آسون تر باشه . با اجازه اساتید

برای کار با فایل از منو بالا وی بی یه جایی Refrence رو انتخاب کن بعد از انتحاب در صفحه جدید در لیست دنبال Microsoft Svript Runtime بگردید بعد از انتخاب این گزینه بر روی محل کد نویسی برید و متغیری از نوع فایل تغریف نماید .....

Dim FileNum1 as new FileObjectSystem

Sub FileTest()

dim m as = "f"x

If Filenum1.ExiDrive=("F:\")=True then

Else

End if
End Sub

با عرض پوزش از اشتباه در کد نویسی استفاده کردم بخاطر اینه که وی بی دی سیستم خودم نداشتم

با تشکر و خسته نباشی از شما دوستان

[javid_debugger]

اقای XXXXX_XXXXX میشه طرز استفاده ار این API رو که گفتی رو بگی ممنون.

[maryamb]

خب پست شماره 5 مثال همون هست دیگه !!!

[xxxxx_xxxxx]

خب پست شماره 5 مثال همون هست دیگه !!!
پست شماره 4


با این قطعه کد می فهمیم که آیا درایو F وجود دارد یا خیر:


'خط تعریف تابع API
Declare Function GetDriveType Lib "kernel32.dll" Alias GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command_Click()
dim x as Byte
'ارسال مقدار (نام درایو) به تابع
x=GetDriveType("F:\")
if x=3 then MsgBox "درایو F وجود دارد"
End Sub


موفق باشید/