isFileBusy ? checkear si el archivo está ocupado por otra aplicación

[extreme69]

Hola, sigo con mi proyecto y tengo más y más inconvenientes a cada rato.

Tengo que detectar si un archivo está en uso, y detallo...

El archivo es generado lentamente por otra aplicacion, este archivo puede llegar a pesar 10gb y tengo que detectar lo antes posible sin generar conflictos cuando terminó de generarse.

A lo bestia, se me ocurrió usar un timer y chequear el peso del archivo cada X segundos, si no cambia de tamaño en X tiempo entonces sigue con las tareas, pero esto no me resulta práctico, me consume muchos recursos y no me convence para nada la idea de usar un timer durante 10 o más minutos.

Googleando alguna alternativa, me encontré con un código en bigresource q postió un tal "plenderj".

Código [Seleccionar] Expandir

Private Function isFileLocked(ByVal strFilePath As String) As Boolean
   On Error GoTo errHandle
   isFileLocked = False
   Open strFilePath For Binary Access Read Write Lock Read Write As #1
       
   Close #1
   Exit Function
errHandle:
   isFileLocked = True
msgbox "Está siendo usado por otra aplicación"
End Function

Le agrego un msgbox para ver q me devuelve, se lo agrego debajo de "isFileLocked = True" de manera que si el archivo está ocupado me lo diga, pero me dice que está ocupado incluso cuando no lo está :S

Sugerencias?

[Edu]

Y si miras los procesos?

[raul338]

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateFile Lib "kernel32" Alias _
    "CreateFileA" (ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = &H3
Private Const GENERIC_WRITE = &H40000000
Private Const INVALID_HANDLE_VALUE = -1


Public Function ArchivoEnUso(ByVal sFileName As String) As Boolean

    Dim hFile As Long

    On Error GoTo ExitGetFileInfo

    ' Obtenemos el manipulador del archivo. Para ello indicamos
    ' que vamos a permitir el acceso de lectura
    hFile = CreateFile(sFileName, GENERIC_WRITE, _
        FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0&, 0&)

    ' Si hay un error es porque el archivo está siendo utilizado
    If hFile = INVALID_HANDLE_VALUE Then
        ArchivoEnUso = True
    End If

ExitGetFileInfo:
    ' Cerramos el manipulador del archivo
    hFile = CloseHandle(hFile)
End Function


[extreme69]

No lo puedo hacer con el proceso porque justamente tengo que saber cuando terminó de crearse el archivo para cerrar la aplicación que lo crea.

Raúl, no me está funcionando, tampoco entiendo mucho que hace el code, y ahora q lo pienso voy a tener que usar un timer de todas formas, quizás medir y comparar el tamaño sea lo más fácil en resumidas cuentas, o se te ocurre el motivo por el cual no me está funcionando?

Quizás estoy haciendo algo mal yo.

Código [Seleccionar] Expandir


Private Sub Form_Load()
ArchivoEnUso ("D:\AAAAA - Clientes\final_comp_29.avi")
EndSub

Private Declare Function CreateFile Lib "kernel32" Alias _
   "CreateFileA" (ByVal lpFileName As String, _
   ByVal dwDesiredAccess As Long, _
   ByVal dwShareMode As Long, _
   ByVal lpSecurityAttributes As Long, _
   ByVal dwCreationDisposition As Long, _
   ByVal dwFlagsAndAttributes As Long, _
   ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = &H3
Private Const GENERIC_WRITE = &H40000000
Private Const INVALID_HANDLE_VALUE = -1


Public Function ArchivoEnUso(ByVal sFileName As String) As Boolean

   Dim hFile As Long

   On Error GoTo ExitGetFileInfo

   ' Obtenemos el manipulador del archivo. Para ello indicamos
   ' que vamos a permitir el acceso de lectura
   hFile = CreateFile(sFileName, GENERIC_WRITE, _
       FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0&, 0&)

   ' Si hay un error es porque el archivo está siendo utilizado
   If hFile = INVALID_HANDLE_VALUE Then
       ArchivoEnUso = True
   End If

   If ArchivoEnUso = True Then
   MsgBox "Está en uso"
   Else
   MsgBox "NO está en uso"
   End If

ExitGetFileInfo:
   ' Cerramos el manipulador del archivo
   hFile = CloseHandle(hFile)
End Function

[extreme69]

Bueno, lo terminé haciendo chequeando el filesize.

Usé un código que encontré acá:

http://www.computing.net/answers/programming/closing-an-application-in-vb6/7174.html

Y lo modifiqué para que haga lo que quiero guardando el último tamaño del archivo en un .txt y luego cada X segundos comparo el filesize con el contenido del .txt y si son iguales es porke terminó de crearse el archivo ^^

Saludos y muchas gracias!

[Elemental Code]

RAUUULLL!!!!
Tu codigo cierra el programa que tiene abierto el archivo o entendi mal. 
Si hace eso, es justamente lo que me hacia falta 

[raul338]

Ehhh? No, mi codigo intenta abrir el archivo por API y si lo hace (o no) cierra el handle del archivo, no del proceso

Lo tuve que usar para esperar a que se termine de armar un zip de backup (Lo que es enviar a windows que te zipee archivos )

[Elemental Code]

Me emocione al pedo. 

Necesitaba algo onda Unlocker para mi soft Shredder (Borrado Seguro)

[raul338]

No se que te hizo pensar que hacia eso

No desviemos mas