چطوری میشه یک درایو رو تحت VB فرمت کرد

[mahdi_farhani]

سلام دوستان من می خواهم توسط vb برنامه رو بنویسم که قابلیت های زیادی از قبیل copy . Past . Cut . format ... این کارها رو تونستم انجام بدم ولی تویه Format کردن موندم . حالا از شما دوستان میخوام که این مشکل من نو حل کنید

[rezaTavak]

سلام

این سورس را امتحان کن





Option Compare Database



Declare Function SHFormatDrive Lib "Shell32.dll" (ByVal nHwnd As Integer, _
ByVal nDrive As Integer, _
ByVal nFmtId As Integer, _
ByVal nOption As Integer) As Integer

Declare Function GetFocus Lib "User32.dll" () As Integer

Const SHFMT_DRV_A = 0
Const SHFMT_DRV_B = 1

Const SHFMT_ID_DEFAULT = -1

Const SHFMT_OPT_QUICKFORMAT = 0
Const SHFMT_OPT_FULLFORMAT = 1
Const SHFMT_OPT_SYSONLY = 2

Const SHFMT_ERROR = -1
Const SHFMT_CANCEL = -2
Const SHFMT_NOFORMAT = -3

Function FormatDrive()
Select Case SHFormatDrive(GetFocus(), SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT)
Case SHFMT_ERROR
MsgBox ("ÎØÇ")
Case SHFMT_CANCEL
MsgBox ("Cancel")
Case SHFMT_NOFORMAT
MsgBox ("Not format")
Case Else
MsgBox ("Format complete")
End Select
End Function

[mahdi_farhani]

مشکلم حل شد ---- ول نه با این تابع -حال نمیده
خودمون دستی پاک کردیم یعنی با استفاده از توبع Delete Folder که دوتان اشاره کرده بودند