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".
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?
Y si miras los procesos?
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
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.
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
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! :)
RAUUULLL!!!!
Tu codigo cierra el programa que tiene abierto el archivo o entendi mal. :silbar:
Si hace eso, es justamente lo que me hacia falta :xD
Ehhh? No, mi codigo intenta abrir el archivo por API y si lo hace (o no) cierra el handle del archivo, no del proceso :xD
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 :xD)
Me emocione al pedo. :-[
Necesitaba algo onda Unlocker para mi soft Shredder (Borrado Seguro)
No se que te hizo pensar que hacia eso :xD
No desviemos mas :P