HOLA!!!
No le hagas caso a AbrahamAraon, el desentiende este lenguaje parece , te esta explicando poniendo corchetes en vez de parentesis, eso denota una total ignorancia de la sintaxis del lenguaje.
Siguiendo:
El problema esta en estas lineas:
Por que al declarar esas variables no se les puede dar un valor. (aunque todas de inicializan con el valor que igualas ahi)
Tenes que poner asi para que funcione:
Como veras ahi separo la declaracion de la asignacion de valor de la variable.
Luego tambien estas mal con esta linea:
En VB6 no se usa Return, para que la funcion devuelva esa variable que indicas ahi deberias reemplazar esa linea por:
Por ultimo nunca cerras la funcion.
Deberias agregar un End Function al final.
El codigo te quedaria asi:
P.D: @lessionone solo arregle tus problemas con la sintaxis no cambie el funcionamiento de tu funcion.
P.D2: @AbrahamAraon Si respondes por favor responde bien o aunque sea en el lenguaje del subforo correspondiente, No hagas doble post, modifica el ultimo post y agrega lo que tengas que agregar, arriba ya te dije que no se usan corchetes en vb6, se usan parentesis.
GRACIAS POR LEER!!!
No le hagas caso a AbrahamAraon, el desentiende este lenguaje parece , te esta explicando poniendo corchetes en vez de parentesis, eso denota una total ignorancia de la sintaxis del lenguaje.
Siguiendo:
El problema esta en estas lineas:
Código (vb) [Seleccionar]
Dim c As String = ""
Dim z As String = ""
Dim y As Integer=0
Por que al declarar esas variables no se les puede dar un valor. (aunque todas de inicializan con el valor que igualas ahi)
Tenes que poner asi para que funcione:
Código (vb) [Seleccionar]
Dim c As String
Dim z As String
Dim y As Integer
c = ""
z = ""
y = 0
Como veras ahi separo la declaracion de la asignacion de valor de la variable.
Luego tambien estas mal con esta linea:
Código (vb) [Seleccionar]
Return zEn VB6 no se usa Return, para que la funcion devuelva esa variable que indicas ahi deberias reemplazar esa linea por:
Código (vb) [Seleccionar]
encriptararchivo = zPor ultimo nunca cerras la funcion.
Deberias agregar un End Function al final.
El codigo te quedaria asi:
Código (vb) [Seleccionar]
Private Function encriptararchivo(ByVal archivooriginal As String) As String
Dim c As String
Dim z As String
Dim y As Integer
c = ""
z = ""
y = 0
For b = 1 To Len(archivooriginal)
c = Mid(archivooriginal, b, 1)
y = Asc(c)
z = z & y & "tallin"
Next
encriptararchivo = z
End Function
P.D: @lessionone solo arregle tus problemas con la sintaxis no cambie el funcionamiento de tu funcion.
P.D2: @AbrahamAraon Si respondes por favor responde bien o aunque sea en el lenguaje del subforo correspondiente, No hagas doble post, modifica el ultimo post y agrega lo que tengas que agregar, arriba ya te dije que no se usan corchetes en vb6, se usan parentesis.
GRACIAS POR LEER!!!
