Pues eso, seguro que habéis tratado ya con gente con este problema a ver si me podeis ayudar a mi.

Me da ese error al compilar el stub y me lleva al modulo rc4

If (Not FileExist(SourceFile)) Then
Call Err.Raise(vbObjectError, , "Error in Skipjack EncryptFile procedure (Source file does not exist).")
Exit Sub
End If

Alguna solución?
estas cerrando una subrutina que no existe, tienes que definirla
y antes de cerrar ese if estas cerrando el procedimiento (subrutina), primero debes cerrar el if y luego el procedimiento
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
strup escribió:estas cerrando una subrutina que no existe, tienes que definirla
y antes de cerrar ese if estas cerrando el procedimiento (subrutina), primero debes cerrar el if y luego el procedimiento
vas a tener que ayudarme un poco más sorry por mi estupidez xDD

Mostrar/Ocultar

estoy siguiendo este tutorial: [Enlace externo eliminado para invitados]

Gracias por la ayuda! :D
a tuve un error al leer el code en caso de que el archivo no exista entonces sale del procedimiento, da mas detalles acerca del error que parte te subraya el ide exactamente
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
Creo que es porque te falta la función FileExist. Aquí te la dejo:

Código: Seleccionar todo

Function FileExist(FileName As String) As Boolean
    FileExist = (GetAttr(FileName) And vbDirectory) = 0
End Function

gracias por todas las ayudas este es el modulo completo del rc4

Mostrar/Ocultar

donde añadiría esa función?

y el error me lo marca aqui(la negrita):
If (Not FileExist(SourceFile)) Then
Call Err.Raise(vbObjectError, , "Error in Skipjack EncryptFile procedure (Source file does not exist).")
Exit Sub
End If
Fuera del procedimiento pero en el mismo modulo
PD: si el error es hay es que tienes que usar la funcion que puso blau
Abolición para el torneo del toro de la vega. Death to the murderers of bulls.
strup escribió:Fuera del procedimiento pero en el mismo modulo
PD: si el error es hay es que tienes que usar la funcion que puso blau
y en que parte la añado?
bueno eso ya está arreglado. Ahora el problema está con este error: "No se encontró el método o el miembro de datos" y me lleva a este código:

Mostrar/Ocultar

y me marca .dialogtitle =
Tienes que agregar el componente Microsoft Common diag (creo que es así), añadir un CommonDialog y renombrarlo a 'CD'.

Pero en serio, aprende la base o no harás nada.
Responder

Volver a “VB/.NET”