| Pregunta: | 37509 - COMO FORMATEAR UN DISKETTE |
| Autor: | Alonso Martinez Gutierres |
| Tengo una pregunta y espero que me puedan ayudar. Quisiera sabere como puedo formatear un diskette (3 1/2) desde un programa en Visual Basic 6.0 Desde ahora les agradesco su ayuda | |
| Respuesta: | Oswaldo Monagas |
| Para formatear te envio un programita que te abre la ventana de windows para hacerlo. Private Sub Command1_Click(Index As Integer) Dim Str As String Select Case Index Case 0: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 0) Case 1: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 1) Case 2: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 2) End Select End Sub Private Sub Command2_Click() Unload Me End Sub Pon tres botones y nombralos asi: el primero Formateo rapido como caption y en el index = 0, el segundo Formateo Total y en Index = 1 el tercero Copiar archivos de sistema Index = 2 Agregale un rutina de errores si no esta el disco en la unidad, o chequea si esta preparada la unidad. Saludos | |