Visual Basic no accesa archivos

26/08/2005 - 04:08 por Antnonio Castro | Informe spam
Una aplicación en Excel Visual Basic que integra varios libros, verifica en
primera instancia que ciertos archivos existan en la carpeta. Después de un
ataque de virus se perdió esta función, ahora aunque los archivos existen la
aplicación no identifica los archivos requeridos.
Sospecho que se ha perdido una función o complemento de Visual Basic.
Puede alguien ayudarme?

Preguntas similare

Leer las respuestas

#1 KL
26/08/2005 - 10:42 | Informe spam
Hola Antonio,

?Podrias exponer el codigo que verifica la existencia de los archivos?

Saludos,
KL


"Antnonio Castro" <Antnonio wrote in
message news:
Una aplicacion en Excel Visual Basic que integra varios libros, verifica
en
primera instancia que ciertos archivos existan en la carpeta. Despues de
un
ataque de virus se perdio esta funcion, ahora aunque los archivos existen
la
aplicacion no identifica los archivos requeridos.
Sospecho que se ha perdido una funcion o complemento de Visual Basic.
Puede alguien ayudarme?
Respuesta Responder a este mensaje
#2 Antnonio Castro
26/08/2005 - 16:36 | Informe spam
KL
Gracias por la respuesta.

El código es Application.Filesearch. Al encontrar el archivo el resultado
.Execute debe ser 1 pero indica 0.

También tengo dudas si el Activex de Windows, que descargue antes del
cambio, puede bloquear esta función.

Antonio

"KL" wrote:

Hola Antonio,

?Podrias exponer el codigo que verifica la existencia de los archivos?

Saludos,
KL


"Antnonio Castro" <Antnonio wrote in
message news:
> Una aplicacion en Excel Visual Basic que integra varios libros, verifica
> en
> primera instancia que ciertos archivos existan en la carpeta. Despues de
> un
> ataque de virus se perdio esta funcion, ahora aunque los archivos existen
> la
> aplicacion no identifica los archivos requeridos.
> Sospecho que se ha perdido una funcion o complemento de Visual Basic.
> Puede alguien ayudarme?



Respuesta Responder a este mensaje
#3 KL
27/08/2005 - 13:36 | Informe spam
Hola Atonio,

Ya me imaginaba que usabas la propiedad Filesearch del ojeto Application, lo
que te pido es que expongas todo el procedimiento que la usa, porque es ahi
donde probablemente esta el problema. Respecto a que algun control ActiveX
pueda bloquear el funcionamiento de FileSearch - me parece poco probable.
Comentas?

Saludos,
KL


"Antnonio Castro" wrote in
message news:
KL
Gracias por la respuesta.

El codigo es Application.Filesearch. Al encontrar el archivo el resultado
.Execute debe ser 1 pero indica 0.

Tambien tengo dudas si el Activex de Windows, que descargue antes del
cambio, puede bloquear esta funcion.

Antonio

"KL" wrote:

Hola Antonio,

?Podrias exponer el codigo que verifica la existencia de los archivos?

Saludos,
KL


"Antnonio Castro" <Antnonio wrote in
message news:
> Una aplicacion en Excel Visual Basic que integra varios libros,
> verifica
> en
> primera instancia que ciertos archivos existan en la carpeta. Despues
> de
> un
> ataque de virus se perdio esta funcion, ahora aunque los archivos
> existen
> la
> aplicacion no identifica los archivos requeridos.
> Sospecho que se ha perdido una funcion o complemento de Visual Basic.
> Puede alguien ayudarme?



Respuesta Responder a este mensaje
#4 KL
27/08/2005 - 17:31 | Informe spam
Hola otra vez,

Se me habia olvidado que segun dicen alguns usuarios el objeto FileSearch
como tal tiene problemas y a veces devuelve resultados incorrectos (
http://j-walk.com/ss/excel/tips/tip97.htm ). John Walkenbach tambien
recomienda que se use el metodo NewSearch con este objeto (
http://j-walk.com/ss/books/xl02pperrors.htm page 324).

Aqui encontraras algunas alternativas:

http://tinyurl.com/89h2m

Saludos,
KL


"KL" wrote in message
news:
Hola Atonio,

Ya me imaginaba que usabas la propiedad Filesearch del ojeto Application,
lo que te pido es que expongas todo el procedimiento que la usa, porque es
ahi donde probablemente esta el problema. Respecto a que algun control
ActiveX pueda bloquear el funcionamiento de FileSearch - me parece poco
probable. Comentas?

Saludos,
KL


"Antnonio Castro" wrote in
message news:
KL
Gracias por la respuesta.

El codigo es Application.Filesearch. Al encontrar el archivo el resultado
.Execute debe ser 1 pero indica 0.

Tambien tengo dudas si el Activex de Windows, que descargue antes del
cambio, puede bloquear esta funcion.

Antonio

"KL" wrote:

Hola Antonio,

?Podrias exponer el codigo que verifica la existencia de los archivos?

Saludos,
KL


"Antnonio Castro" <Antnonio wrote in
message news:
> Una aplicacion en Excel Visual Basic que integra varios libros,
> verifica
> en
> primera instancia que ciertos archivos existan en la carpeta. Despues
> de
> un
> ataque de virus se perdio esta funcion, ahora aunque los archivos
> existen
> la
> aplicacion no identifica los archivos requeridos.
> Sospecho que se ha perdido una funcion o complemento de Visual Basic.
> Puede alguien ayudarme?









Respuesta Responder a este mensaje
#5 Antnonio Castro
27/08/2005 - 18:07 | Informe spam
KL

Gracias por la respuesta. Voy a probar las alternativas que sugieres y le
comento después. El código VBA es el siguiente:

Sub CHECk()

With Application.FileSearch

.LookIn = ThisWorkbook.Path: BOOka = Mid(BOOk1, 6, Len(BOOk1) - 9)

For I = 1 To 6: .Filename = "VER" & I & "." & BOOka & ".xls"

If .Execute = 0 Then

TxT_0 = "ESTRUCTURA"
TXT_1 = Chr(10) & "ERROR: FALTAN ARCHIVOS DE ESTE DOCUMENTO"
& Chr(10) & Chr(10) _
& "Para este diagnóstico se requieren TODOS los archivos
del" & Chr(10) _
& "Documento DOC." & BOOka & ".xls ©: Código VER (1 - 6)"
& Chr(10) & Chr(10) _
& "EN ESTA CARPETA NO SE ENCUENTRA: " & .Filename & Chr(10)
& Chr(10) _
& "NOTAS: TODOS los archivos deben estar en la misma
carpeta" & Chr(10) _
& Space(14) & "SIEMPRE haga las modificaciones desde este
software." & Chr(10) & Chr(10) _
& "<< A CONTINUACION SE CERRARA ESTE ARCHIVO >>" & Chr(10)
MsgBox TXT_1, 16, TxT_0
ThisWorkbook.Close 0

End If

Next I

End With

End Sub

Slds

Antonio Castro

"KL" wrote:

Hola otra vez,

Se me habia olvidado que segun dicen alguns usuarios el objeto FileSearch
como tal tiene problemas y a veces devuelve resultados incorrectos (
http://j-walk.com/ss/excel/tips/tip97.htm ). John Walkenbach tambien
recomienda que se use el metodo NewSearch con este objeto (
http://j-walk.com/ss/books/xl02pperrors.htm page 324).

Aqui encontraras algunas alternativas:

http://tinyurl.com/89h2m

Saludos,
KL


"KL" wrote in message
news:
> Hola Atonio,
>
> Ya me imaginaba que usabas la propiedad Filesearch del ojeto Application,
> lo que te pido es que expongas todo el procedimiento que la usa, porque es
> ahi donde probablemente esta el problema. Respecto a que algun control
> ActiveX pueda bloquear el funcionamiento de FileSearch - me parece poco
> probable. Comentas?
>
> Saludos,
> KL
>
>
> "Antnonio Castro" wrote in
> message news:
>> KL
>> Gracias por la respuesta.
>>
>> El codigo es Application.Filesearch. Al encontrar el archivo el resultado
>> .Execute debe ser 1 pero indica 0.
>>
>> Tambien tengo dudas si el Activex de Windows, que descargue antes del
>> cambio, puede bloquear esta funcion.
>>
>> Antonio
>>
>> "KL" wrote:
>>
>>> Hola Antonio,
>>>
>>> ?Podrias exponer el codigo que verifica la existencia de los archivos?
>>>
>>> Saludos,
>>> KL
>>>
>>>
>>> "Antnonio Castro" <Antnonio wrote in
>>> message news:
>>> > Una aplicacion en Excel Visual Basic que integra varios libros,
>>> > verifica
>>> > en
>>> > primera instancia que ciertos archivos existan en la carpeta. Despues
>>> > de
>>> > un
>>> > ataque de virus se perdio esta funcion, ahora aunque los archivos
>>> > existen
>>> > la
>>> > aplicacion no identifica los archivos requeridos.
>>> > Sospecho que se ha perdido una funcion o complemento de Visual Basic.
>>> > Puede alguien ayudarme?
>>>
>>>
>>>
>
>



Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida