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
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.
vas a tener que ayudarme un poco más sorry por mi estupidez xDDstrup 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
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
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
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
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.
y en que parte la añado?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
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:
y me marca .dialogtitle =
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.
Pero en serio, aprende la base o no harás nada.