Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Saber si Archivo está abierto

350 views
Skip to first unread message

VB

unread,
May 20, 2003, 7:39:43 AM5/20/03
to
Hola Grupo,
En mi aplicacion abro un fitchero Word, y me lo pueden intentar abrir de
nuevo en cualquier momento, pero si ya está abierto me da problemas.
Alguien podria decirme com se puede saber si un archivo ya está abierto o
no?

Muchísimas gracias de antemano,

VB.


Jesús M.G.

unread,
May 20, 2003, 7:55:54 AM5/20/03
to
Hola mira a ver que te parece esta funcion que en su dia me pasó alguien del
grupo:

Public Function ArchivoEstaAbierto(ByVal Ruta As String) As Boolean
On Error GoTo HayErrores
Dim f As Integer
f = FreeFile
Open Ruta For Append As f
Close f
ArchivoEstaAbierto = False
Exit Function
HayErrores:
If Err.Number = 70 Then
ArchivoEstaAbierto = True
Else
Err.Raise Err.Number
End If
End Function

Saludos.

--
Jesús Morales González
Almuñécar (Granada) España
msn: jemog...@ESTOhotmail.com
email: jesusARROBApolizainformaticaPUNTOcom
www.polizainformatica.com
----
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro


"VB" <xri...@grupo.seidor.es> escribió en el mensaje
news:epEFeRsH...@TK2MSFTNGP11.phx.gbl...

VB

unread,
May 20, 2003, 9:19:05 AM5/20/03
to
He probado la función, pero no me funciona, no se si hago mal alguna cosa.

Gracias de todas formas,

VB.

"Jesús M.G." <je...@preguntameantes.com> escribió en el mensaje
news:#6cQ0bsH...@TK2MSFTNGP11.phx.gbl...

Chucho

unread,
May 20, 2003, 11:02:16 AM5/20/03
to
prueba sin el "Exit function"

--
Carlos Jesús Huchim Ahumada
Hospedaje y Diseño Web Excelent
http://www.andinahost.com/


Alex Martínez

unread,
May 20, 2003, 11:05:51 AM5/20/03
to
Por que?

--

Saludos,
Alex


"Chucho" <in...@advenet.org> wrote in message
news:upobLAuH...@tk2msftngp13.phx.gbl...

Jesús M.G.

unread,
May 20, 2003, 11:09:20 AM5/20/03
to
Hola básicamente lo que hace es intentar abrir el fichero para escritura si
ya está abierto provocará un error al estar bloqueado.

VB

unread,
May 20, 2003, 11:15:03 AM5/20/03
to
Tampoco funciona!


"Chucho" <in...@advenet.org> escribió en el mensaje
news:upobLAuH...@tk2msftngp13.phx.gbl...

VB

unread,
May 20, 2003, 11:43:04 AM5/20/03
to
Quizà esto funciona quando el archivo se ha abierto con VB, pero si no se ha
abierto con VB o se ha abierto mediante un Shell, però no con un canal (Ej.:
Open Archivo For Append As #1) luego no deve funcionar.

Realmente, mi problema es que estoy abriendo un Archivo Word de Ayuda de la
siguiente manera:

Set wb = CreateObject("Word.Basic")
wb.FileOpen Name:=App.Path & "\Ayuda\Ayuda.doc"
wb.AppShow
wb.EditBookmark "Marcador1", 0, 0, 0, 1 ' lo situo en el punto
deseado
wb.AppMaximize

Y si intentan abrirlo de nuevo sin haberlo cerrado anteriormente, me da un
problema, por este motivo quiero detectar si esta abierto o no.

Teneis alguna sugerencia?

Gracias nuevamente po vuestro interés.

VB.

"Jesús M.G." <jmgonzal...@polizainformatica.com> escribió en el mensaje
news:badghg$s3shf$1...@ID-141819.news.dfncis.de...

0 new messages