Problemas con Dir()

24/04/2006 - 16:37 por Arreglador | Informe spam
bueno aca yo de nuevo esta vez el problema es con Dir (), el tema es asi:
tengo 2 dir, uno en el cuerpo principal del programa, y otro dentro de una
"funcion" que cree de la forma especificada mas abajo. El programa entra a la
funcion, todo correcto, pero cuando sale de la funcion, me da error en el
Dir() del programa principal, diciendo que no se puede llamar dir sin
pathname, ahora este error sucede solamente cuando ejecuto esta funcion,
cuando no esta, el dir del programa principal funciona de maravilla (cabe
destacar que el pathname esta siempre... no me lo he olvidado). Mi suposicion
es que por algun error mio se esta confundiendo el dir de la funcion con el
del programa principal entonces me tira ese error, como hago para que no
suceda esto ? todo lo que ocurre dentro de la ejecusion de la funcion no
queda dentro de la funcion?

gracias por su tiempo, recien empiezo con .net y la verdad que en algunas
cosas es un poco rebuscado, y lo que se encuentra en internet no es de mucha
ayuda, solo ejemplos tontos de como usar un textbox y demas idioteces.

:-)

Namespace Funciones
Module Module1
Sub Main()
End Sub

'primer funcion
Public Sub CopiarArchivos(ByVal sOrigen As String, ByVal sDestino As
String)

Dim sArch

sArch = Dir(sOrigen & "\", FileAttribute.Normal)

Do While sArch <> Nothing

FileCopy(sOrigen & "\" & sArch, sDestino & "\" & sArch)

sArch = Dir()

Loop

End Sub
'fin de la primera funcion
End Module
End Namespace

Preguntas similare

Leer las respuestas

#1 David Sans
25/04/2006 - 10:19 | Informe spam
Hola

Yo veo que la función esta bien.
En el programa principal también tienes que poner

unString = Dir ("El Path")

antes de poner el

unString = Dir()

Por que sino te da ese error.

No se si es esto lo que te ocurre?

Un saludo
David Sans

"Arreglador" escribió en el mensaje
news:
bueno aca yo de nuevo esta vez el problema es con Dir (), el tema es asi:
tengo 2 dir, uno en el cuerpo principal del programa, y otro dentro de una
"funcion" que cree de la forma especificada mas abajo. El programa entra a la
funcion, todo correcto, pero cuando sale de la funcion, me da error en el
Dir() del programa principal, diciendo que no se puede llamar dir sin
pathname, ahora este error sucede solamente cuando ejecuto esta funcion,
cuando no esta, el dir del programa principal funciona de maravilla (cabe
destacar que el pathname esta siempre... no me lo he olvidado). Mi suposicion
es que por algun error mio se esta confundiendo el dir de la funcion con el
del programa principal entonces me tira ese error, como hago para que no
suceda esto ? todo lo que ocurre dentro de la ejecusion de la funcion no
queda dentro de la funcion?

gracias por su tiempo, recien empiezo con .net y la verdad que en algunas
cosas es un poco rebuscado, y lo que se encuentra en internet no es de mucha
ayuda, solo ejemplos tontos de como usar un textbox y demas idioteces.

:-)

Namespace Funciones
Module Module1
Sub Main()
End Sub

'primer funcion
Public Sub CopiarArchivos(ByVal sOrigen As String, ByVal sDestino As
String)

Dim sArch

sArch = Dir(sOrigen & "\", FileAttribute.Normal)

Do While sArch <> Nothing

FileCopy(sOrigen & "\" & sArch, sDestino & "\" & sArch)

sArch = Dir()

Loop

End Sub
'fin de la primera funcion
End Module
End Namespace
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida