Crear ayudas en vb net

[Aquaventus]

Hola CarmenRocio... el codigo que te pase no vale para tu caso... haciendo modificaciones solo ve el ejecutable que esta abierto... para tu caso seria el siguiente codigo :

Creas un metodo

Código vb.net:

Private Function estaAbiertoElArchivo(ByVal filePath As String) As Boolean
        Dim estado As Boolean = False
        Try
            Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(filePath)
            fs.Close()
        Catch ex As System.IO.IOException
            estado = True
        End Try
        Return estado
    End Function
 

Lo llamas al momento de abrir tu archivo( por ejemplo al hacer click en un boton) :

Código vb.net:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click      
        If estaAbiertoElArchivo("C:\Documents and Settings\Monza_02\Escritorio\tanques.pdf") = True Then
            MessageBox.Show("El archivo ya esta abierto")
        Else
            Process.Start("C:\Documents and Settings\Monza_02\Escritorio\tanques.pdf")
        End If
    End Sub
 

Espero te sirva. Saludos!