Hi
My VB aplication copies a lot of images from a removable media which is
the first process (function).
Is there a way to allow the copy process to run in the background, in
order to let the application continue with other activities. ? (sending
SQLquerries etc.)
Right now I must wait untill all the files have been found and copied to
my HD. A little pity.
The copy process goes like this :
Function CopyFile(InpFile As String, OutpFile As String)
On Error Resume Next
Dim ase As String
Open InpFile For Binary As #1
ase = String(LOF(1), vbNullChar)
Get #1, , ase
Close #1
Open OutpFile For Binary Access Write As #2
Put #2, , ase
Close #2
End Function
Raoul Watson - 27 Jul 2008 20:30 GMT
> Hi
>
[quoted text clipped - 20 lines]
> Close #2
> End Function
With your current design, no.
However, have you considered copying the file through
SHFileOperation? This way, the program continues while
explorer takes over.
Per Juul Larsen - 27 Jul 2008 22:25 GMT
Raoul Watson skrev:
>> Hi
>>
[quoted text clipped - 26 lines]
> SHFileOperation? This way, the program continues while
> explorer takes over.
Thank you for your reply
I will try to look at your proposed solution.
kind regards pjl
Per Juul Larsen - 27 Jul 2008 22:26 GMT
Raoul Watson skrev:
>> Hi
>>
[quoted text clipped - 26 lines]
> SHFileOperation? This way, the program continues while
> explorer takes over.
Thank you for your reply
I will try to look at your proposed solution.
kind regards pjl
Dean Earley - 28 Jul 2008 09:45 GMT
> Hi
>
[quoted text clipped - 20 lines]
> Close #2
> End Function
Another option is multithreading which is awkward but doable in VB6, or
you can emulate it by starting another process to do the copying and
some form of IPC (com, DDE, windows events, etc) to bnotify when it has
finished.
Whether you use this or SHFileOperation() depends how much control you
want over the copying.

Signature
Dean Earley (dean.earley@icode.co.uk)
i-Catcher Development Team
iCode Systems
Per Juul Larsen - 28 Jul 2008 17:34 GMT
Dean Earley skrev:
>> Hi
>>
[quoted text clipped - 28 lines]
> Whether you use this or SHFileOperation() depends how much control you
> want over the copying.
Thank you for the answer.I am considering what to do.
Have tried Shell (batchfile) and it looks like it goes a little faster.
mvh pjl
Dean Earley - 29 Jul 2008 08:44 GMT
> Dean Earley skrev:
>>> Hi
[quoted text clipped - 34 lines]
>
> mvh pjl
Erm, you will also find that the real CopyFile function is a lot faster,
especially as the one you give doesn't do anything special.

Signature
Dean Earley (dean.earley@icode.co.uk)
i-Catcher Development Team
iCode Systems
Per Juul Larsen - 29 Jul 2008 11:04 GMT
Dean Earley skrev:
>> Dean Earley skrev:
>>>> Hi
[quoted text clipped - 37 lines]
> Erm, you will also find that the real CopyFile function is a lot faster,
> especially as the one you give doesn't do anything special.
Hi.
Tried Your advice..
Wrote this vbs Script :
dim filesys
Set filesys=CreateObject("Scripting.FileSystemObject")
filesys.CopyFile"G:\DCIM\101MSDCF\*.jpg","c:\picture\backup\temp"
and startet the vbs Script via SHELL in my VB.
Result : 3 times faster !!!
thank you.
regars pjl