How can I check that a file is not in the process of being copied ?

I want to copy a file from a source path to a destination path, but if the
file is in the process of being copied to the source path, then my code will
fail. If it is in the process of being copied then my code needs to wait for
the copying to finish.

The code below is what I tried, but file.length returns the full file
length, even when the whole file hasn't finished copying.

Any ideas ?
Craig



Private Shared Sub CheckFileCopyComplete(ByVal filePath As String)

Const MAX_TIME_IN_SEC As Integer = 60 * 5 '5 mins
Const PAUSE_IN_MILLISEC As Integer = 500 '0.5 sec

Dim file As New IO.FileInfo(filePath)
Dim fileLength As Long = 0
Dim startTime As DateTime = System.DateTime.Now

Do Until file.Length = fileLength
fileLength = file.Length
System.Threading.Thread.Sleep(PAUSE_IN_MILLISEC)
If System.DateTime.Now.Subtract(startTime).Seconds > MAX_TIME_IN_SEC
Then
Throw New ApplicationException("Timeout waiting for file to copy")
End If
Loop

'file finished copying: move on

End Sub

FileSystemWatcher OnCreated() or Created event will be triggered when the
file is copied:
http://msdn.microsoft.com/library/de...eatedtopic.asp

Gabriel Lozano-Morán

Thanks, but I do not want to be alerted when a file has been created, but
just check that a file is not in the process of being copied before I perform
some operation on it.

Use try catch to catch the error ?

--
Patrice

"Craig HB" <(E-Mail Removed)> a écrit dans le message de
news:854461D2-A9FE-45D7-A5E0-(E-Mail Removed)...
> How can I check that a file is not in the process of being copied ?
>
> I want to copy a file from a source path to a destination path, but if the
> file is in the process of being copied to the source path, then my code
will
> fail. If it is in the process of being copied then my code needs to wait
for
> the copying to finish.
>
> The code below is what I tried, but file.length returns the full file
> length, even when the whole file hasn't finished copying.
>
> Any ideas ?
> Craig
>
>
>
> Private Shared Sub CheckFileCopyComplete(ByVal filePath As String)
>
> Const MAX_TIME_IN_SEC As Integer = 60 * 5 '5 mins
> Const PAUSE_IN_MILLISEC As Integer = 500 '0.5 sec
>
> Dim file As New IO.FileInfo(filePath)
> Dim fileLength As Long = 0
> Dim startTime As DateTime = System.DateTime.Now
>
> Do Until file.Length = fileLength
> fileLength = file.Length
> System.Threading.Thread.Sleep(PAUSE_IN_MILLISEC)
> If System.DateTime.Now.Subtract(startTime).Seconds >
MAX_TIME_IN_SEC
> Then
> Throw New ApplicationException("Timeout waiting for file to
copy")
> End If
> Loop
>
> 'file finished copying: move on
>
> End Sub

yes, i think i'll do that -- thanks

I decided to catch the exception, pause and then try again (as suggested),
but it meant searching through the ex.message for "because it is being used
by another process".

I have copied the procedure below. If anyone have a neater way to do this,
please let me know.

Thanks,
Craig


Private Sub CopyFileWhenReady(ByVal source As String, ByVal dest As String)

Const MAX_TIME_IN_SEC As Integer = 60 * 5 '5 mins
Const PAUSE_IN_MILLISEC As Integer = 500 '0.5 sec
Const ERROR_MSG_EXRACT As String = "because it is being used by another
process"

Dim copiedOk As Boolean = False
Dim startTime As DateTime = System.DateTime.Now

Do Until copiedOk
Try
IO.File.Copy(source, dest)
copiedOk = True
Catch ex As IO.IOException
If ex.Message.IndexOf(ERROR_MSG_EXRACT) > -1 Then
System.Threading.Thread.Sleep(PAUSE_IN_MILLISEC)
If System.DateTime.Now.Subtract(startTime).Seconds > MAX_TIME_IN_SEC
Then
Throw New ApplicationException("Timeout waiting for file to copy")
End If
Else
Throw ex
End If
End Try
Loop

End Sub

Try to see the documentation for the exact exception you should catch. In
most cases you'll find additional members (I believe this is ErrorCode or
HResult or something similar) that gives some additional information about
the problem...

The text could perhaps change and is likely localized either depending on
the os or the language pack...

You could also try perhaps to open the file in exclusive mode before doing
the copy...

--
Patrice

"Craig HB" <(E-Mail Removed)> a écrit dans le message de
news:23134C67-3A13-41BF-BDE8-(E-Mail Removed)...
> I decided to catch the exception, pause and then try again (as suggested),
> but it meant searching through the ex.message for "because it is being
used
> by another process".
>
> I have copied the procedure below. If anyone have a neater way to do this,
> please let me know.
>
> Thanks,
> Craig
>
>
> Private Sub CopyFileWhenReady(ByVal source As String, ByVal dest As
String)
>
> Const MAX_TIME_IN_SEC As Integer = 60 * 5 '5 mins
> Const PAUSE_IN_MILLISEC As Integer = 500 '0.5 sec
> Const ERROR_MSG_EXRACT As String = "because it is being used by another
> process"
>
> Dim copiedOk As Boolean = False
> Dim startTime As DateTime = System.DateTime.Now
>
> Do Until copiedOk
> Try
> IO.File.Copy(source, dest)
> copiedOk = True
> Catch ex As IO.IOException
> If ex.Message.IndexOf(ERROR_MSG_EXRACT) > -1 Then
> System.Threading.Thread.Sleep(PAUSE_IN_MILLISEC)
> If System.DateTime.Now.Subtract(startTime).Seconds > MAX_TIME_IN_SEC
> Then
> Throw New ApplicationException("Timeout waiting for file to
copy")
> End If
> Else
> Throw ex
> End If
> End Try
> Loop
>
> End Sub