Programación General > Visual Basic 6.0 e inferiores

 Qué Bibliotecas...

(1/2) > >>

puedequesiempre:
Hola amigo:

Te agradezco de antemano tu ayuda en este asunto.

Cuando ejecuto el programa (con el compilador, pulsando el botón play), me sale el error "No se encuentra el proyecto o biblioteca". Lo hace deteniéndose en "Hex" [en la parte... s = Format(Hex(Serial), "00000000")] y en "Left" [en la parte... VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)]

Aclararte que, en un principio, mi programa funcionaba a la perfección, sólo que tuve que formatear mi disco duro y reinstalar el Win98, el Visual Studio y demás programas, por lo que supongo que las susodichas bibliotecas a las que acude no las halla: lo dice el mismo mensaje de 'Error de compilación, no se encuentra el proyecto o biblioteca')

Te muestro el código, a ver si pudieras indicarme qué bibliotecas son, y añadirlas o lo que se tenga que hacer en este caso:

----------------
Public Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String

If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
'Crea una cadena de 8 caracteres
s = Format(Hex(Serial), "00000000")
'Agregar el caracter '-' entre los 4 primeros caracteres y los últimos 4 caracteres
VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)
Else
'Si la llamada a la función API falla debe retornar un número de serie lleno de ceros
VolumeSerialNumber = "0000-0000"
End If
End Function
--------------

Muchas gracias.

Brroz:
Hola puedequesiempre.

Las funciones que te fallan son miembros de VBA ... Prueba reinstalando office y luego vb.

Suerte.

puedequesiempre:
Gracias amigo. Pero volví a reinstalar el Office 2000 y sigue dándome el mismo error de compilación. A ver qué podría ser.

Brroz:
¿Esto te ocurre con todos los proyectos?

puedequesiempre:
Pues amigo, vaya vaya, vamos descubriendo cosas paso paso. Fabriqué otro proyecto usando las mismas llamadas (con "Hex", "Left" y "Right") y me funcionó a la perfección.

Ya hay algo despejago.

Gracias.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente