Devolver variable.

[Cuezaltzin]

Hola a todos tengo el siguiente codigo con el cual mando la variable strArchivo a la funcion BuscarArchivo, lo que estoy tratando de hacer es recibir la variable y ejecutar una operación, y el resultado de dicha operacion regresarla a la VerificarArchivo.

Alguien me ayudar a resolver mi problemilla, saludos.

Public Class csCargaDatos

Public Sub VerificarArchivo()

Dim strArchivo As String = "Archivo.txt"
Dim Archivo As New csFunciones

Archivo.BuscarArchivo(strArchivo)


End Sub

End Class



Public Class csFunciones

Public Sub BuscarArchivo(ByVal strArchivo As String)


End Sub

[Jose_minglein2]

Si te he entendiod bien puedes hacer 2 cosas, y lo que quieres es cambiar el valor de strArchivo dentro de la función puedes hacerlos de 2 maneras, o bien:

Código:

strArchivo = Archivo.BuscarArchivo(strArchivo)
...
Public Function BuscarArchivo(ByVal strArchivo As String) as string

Return valor
End Function

o simplemente:

Código:

cArchivo.BuscarArchivo(strArchivo)
....
Public Sub BuscarArchivo(ByRef strArchivo As String)


End Sub

[Didi VK]

si quieres que se te devuelva un valor hazlo mediante una funcion;si quieres hacerlo por procedimiento, te creas una variable publica


Public Class csCargaDatos

Public Sub VerificarArchivo()

Dim strArchivo As String = "Archivo.txt"
Dim Archivo As New csFunciones
Dim strArch As String = Archivo.BuscarArchivo(strArchivo)



End Sub

End Class



Public Class csFunciones

Public Function BuscarArchivo(ByVal strArchivo As String) As String
BuscarArchivo = "el valor que quieras"
Return BuscarArchivo

End Function