فهميدن اين كه درايو وجود دارد يا نه

[svb411]

سلام دوستان
من يك كدي لازم دارم بتونه تشخيص بده كه درايو :M وجود دارد يا نه و با msgbox پيام نشون داده بشه كه هست يا نه
فولدرو مي تونم اينطوري نمايش بدم كه هست يا نه ولي درايو نميشه و ارور bad name ميده
ممنون ميشم راهنمايي كنيد

[SlowCode]

سلام
میتونی از تابع GetDriveType استفاده کنی،کافیه خط زیر رو توی یه ماجول بنویسی:
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

بعد اینطوری ازش استفاده کنی:
if GetDriveType("G:\")=1 then
msgbox "This drive does not exist!"
End if

برای جزئیات بیشتر این صفحه (http://msdn.microsoft.com/en-us/library/windows/desktop/aa364939(v=vs.85).aspx) رو بخون.

[محسن واژدی]

سلام علیکم
یا دستور زیر:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Command1_Click()
If PathFileExists("c:\") = 1 Then
MsgBox "OK."
End If
End Sub


موفق باشید

[svb411]

ممنون دستتون درد نكنه جواب داد

[مهرداد صفا]

سلام
از این روش هم میتوانید استفاده کنید:

Dim FileSystem As Object
set FileSystem = CreateObject("Scripting.FileSystemObject")
MsgBox FileSystem.DriveExists("m:")