Disket formatlamak

[Orion1]

Mrb.
A: sürücüsündeki Disketi nasıl formatlayabilirim.?(VBA Kodu ile)
Teşekkür ederim.
İyi çalışmalar.

 

[balca]

Merhaba;

Sub DisketFormatla()
SHFormatDrive hwnd, 0, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
End Sub

 

[mehmett]

Hayret, bulaşıkları excele nasıl yıkatabilirim diyen çıkmadı hala...

 

[ALPEN]

exceltims adlı üyemizin gönderdiği cevap, yanlış kullanımda harddisk'i de formatlama arızası çıkarabileceği için silinmiştir.

Þimdilik aşağıdaki şekilde deneyin.

[vb:1:1e1c10e0ba]Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private hWnd As Long


Const SHFMT_DRV_A = 0
Const SHFMT_DRV_B = 1

Const SHFMT_ID_DEFAULT = &HFFFF
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

Private Sub format()
Dim Res As Long
hWnd = FindWindow(vbNullString, Me.Caption)
Res = SHFormatDrive(hWnd, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT)

Select Case Res
Case SHFMT_ERROR
MsgBox "Hata.", vbCritical
Case SHFMT_CANCEL
MsgBox "İptal edildi.", vbInformation
Case SHFMT_NOFORMAT
MsgBox "Formatlı değil.", vbInformation
Case Else
MsgBox "Formatlama bitti."
End Select

End Sub

Private Sub CommandButton1_Click()
format
End Sub[/vb:1:1e1c10e0ba]

 

[Orion1]

Merhaba;

Sub DisketFormatla()
SHFormatDrive hwnd, 0, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
End Sub

----------------------------------------------------

Mrb.

Yukarıdaki kodu Aşağıdaki gibi değiştirirsek HardDik'te C: Formatlanacak sanırım.Acaba Doğrumu düşünüyorum.
İlgilenen tüm arkadaşlarıma Teşekkür ederim.
İyi çalışmalar.
:hey:

SHFormatDrive hwnd, 2, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK