[vb6] Controllare se un file è in uso

[giano118]

quando ti connetti ad un db puoi fare un controllo del genere!
se il file è in uso ...MsgBox ......
altrimenti la connessione va a buon fine!
funzionerà anche nel tuo caso?

Do While myConn.State = adStateConnecting
  Loop
On Error GoTo Fallito
  myConn.Open
  If myConn.State = adStateOpen Then
     Debug.Print "Connessione Aperta"
  End If
Fallito:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & vbCrLf & " L'applicazione verrà chiusa.", vbCritical, "Attenzione!!"
End
End If

Ciao