Function EventuallyCopied(strSource, strDestination) 'As Boolean
Dim wsh 'As Wscript.Shell
Dim fs 'As Scripting.FileSystemObject
Dim intCounter 'As Integer
Dim blnEventuallyCopied 'As Boolean
	Set wsh = CreateObject("Wscript.Shell")
	Set fs = CreateObject("Scripting.FileSystemObject")
	blnEventuallyCopied = False
	For intCounter = 1 to 100
		Err.Clear
		On Error Resume Next
		fs.CopyFile strSource, strDestination, True
		If Err.Number = 0 Then
			blnEventuallyCopied = True
			Exit For
		End If
		Wscript.Sleep 1000
	Next
	EventuallyCopied = blnEventuallyCopied
End Function