Try this modified script. It doesn't use the timer, unlike the previous script. That means you need to run it manually everytime you see the "Try again" dialog. And then click "Try again" in the Import pictures dialog.
'Code starts here
Dim FSO: Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
TmpFldr = FSO.GetSpecialFolder(2)
Call DelAcqTemp
Sub DelAcqTemp
NumSeconds = 5
Dim objFolder
Dim objFile
Dim objSubfolder
Set objFolder = fso.GetFolder(TmpFldr)
'DELETE Acq* files in TempFolder Path
For Each objFile In objFolder.files
If LCase(FSO.GetExtensionName(objFile)) <> "tmp" And _
Left(LCase(FSO.GetBaseName(objFile)),3) = "acq" Then
On Error Resume Next
objFile.Delete True
On Error GoTo 0
End If
Next
End Sub
'Code ends here