send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Formatear unidades

  • 0 Respuestas
  • 1351 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« en: Agosto 30, 2010, 06:37:34 pm »
Aqui les dejo otro ejemplo mas, esta vez sobre como formatear unidades desde vb:

Código: Visual Basic
  1.  ' By Drinky94
  2. Option Explicit
  3. Private Declare Function SHFormatDrive Lib "shell32" ( _
  4.     ByVal hwnd As Long, _
  5.     ByVal Drive As Long, _
  6.     ByVal fmtID As Long, _
  7.     ByVal options As Long) As Long
  8. Private Sub Formatear(ByVal unidad As String)
  9.     Dim format As String
  10.     format = SHFormatDrive(Me.hwnd, unidad, 0, 0)
  11.     If format = SHFMT_ERROR Then
  12.         MsgBox "Ha ocurido un error durante el formateo"
  13.     ElseIf format = SHFMT_CANCEL Then
  14.         MsgBox "El formateo fue cancelado"
  15.     ElseIf format = SHFMT_NOFORMAT Then
  16.         MsgBox "La unidad no puede ser formateada"
  17.     Else
  18.         MsgBox "La unida ha sido formateada con exito"
  19.     End If
  20. End Sub
  21.  


salu2!
« Última modificación: Mayo 12, 2014, 03:29:32 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Funciones para formatear texto

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1158
Último mensaje Julio 26, 2010, 12:39:17 pm
por ANTRAX