SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: puedequesiempre en Miércoles 11 de Febrero de 2004, 23:01
-
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.
-
Hola puedequesiempre.
Las funciones que te fallan son miembros de VBA ... Prueba reinstalando office y luego vb.
Suerte.
-
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.
-
¿Esto te ocurre con todos los proyectos?
-
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.
-
Puuuuuf, puedo respirar tranquiloooo...
Vaya tontería más gorda era el asunto este. Te cuento.
Me fui, por casualidad, a referencias, y vi que, de las que tenía marcadas, había una que enlazaba (no se porque) al Outlook Express 5, informando en su casillero de la izquierda directamente de que faltaba la biblioteca (o algo parecido, como que no enlazaba). Creo que hace un par de días también la vi, pero no hice caso, ya que suponía que las bibliotecas que me faltaban (ya sabemos, "Left" y "Right", referentes al manejo de cadenas) poco tenían que ver con las bibliotecas del susodicho programa de correo.
Pues bien, por casualidad también, esta tarde desmarqué la casilla de esa referencia, con la consiguente sorpresa de que, al volver a ejecutar mi programa, volvía a correr sin problemas. Pues algo tendría que ver con "Left" y "Right", ¿no?, digo yo...
¡Vaya tontería y vaya comedero de tarro que me ha dado!
Te lo comunico por si, alguna vez, surgiera cualquier problema de estos al que no veamos solución, podamos acordarnos de esa posibilidad.
Muchas muchísimas gracias de todas formas, un saludo.