Archivos abiertos : Visual Basic 2005

[moradazo]

Hola a todos, mi pregunta es:

Cómo saber si un archivo está abierto o cerrado?

Ejemplo, si el archivo en la dirección C:\temp.txt está abierto o libre sin uso.

Encontré un código pero solo sirve para aplicaciones y no es lo que busco:

Código PHP:

  Dim ProcesosLocales As Process = Process.GetProcessesByName("NombreDeAplicación(sin_.exe)") 
        If ProcesosLocales.Length > 0 Then 
        MsgBox("ESTÁ EN USO") 
        End if  
   

Gracias!

[Ka0stj]

Hola moradazo
Trata con lo siguiente:

Código vb:

Try
 
                   FileOpen(1, "C:\Prueba.txt", OpenMode.Binary, OpenAccess.ReadWrite)
 
Catch ex As Exception
                  MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
                  FileClose(1)
End Try
 

Comentas si te sirvió. Saludos...

[moradazo]

Muchas gracias por la ayuda.

El código que me pasaste abre el Prueba.txt apenas pasa el Try, y después manda el error diciendo que el archivo está abierto. Incluso si el archivo no existe, el código lo crea. Se acerca a lo que ocupo.

Lo que busco es que si en Windows tengo abierto un archivo X (C:\prueba.txt) que me indique si está abierto, obviamente también si está cerrado, suponiendo que necesite usar una condición para evaluar los dos estados.

Gracias!

[Ka0stj]

Checa si te sirve esto:

http://msdn.microsoft.com/es-es/libr...8VS.80%29.aspx

[freegirl]

¿el fichero lo abres tú por código?