|
|
| Тема |
 КАК ДА СТАНЕ |
|
| Автор | CTOЯH (Нерегистриран) | |
| Публикувано | 04.04.05 09:36 |
|
|
|
Private Sub CommandButton1_Click()
Dim ForDisk, ReturnValue
On Error GoTo ErrLab
Open "a:\Disk.txt" For Output As #1
Close 1#
'****************************************************
ForDisk = Shell("format.com a:/q/y", 1)
MsgBox "ФОРМАТИРАНЕТО ЗАВЪРШИ", vbInformation
Exit Sub
'****************************************************
ErrLab:
Select Case Err.Number
Case 70
MsgBox "ПАСТАВЕНАТА ДИСКЕТА Е ЗАЩИТЕНА", vbCritical
Case 71
MsgBox "ПОСТАВЕТЕ ДИСКЕТА", vbCritical
Case Else
MsgBox "ДРУГА ГРЕШКА " & Err.Number, vbCritical
End Select
End Sub
Какво трябва да направя съобщението "ФОРМАТИРАНЕТО ЗАВЪРШИ" да се появи след завършването на форматирането.Сега се появява преди да е започнало.Благодаря Ви.
| |
| |
| 
|
|
