How to shell out to dos and not return until the task is finished?

    Use this function: (EX: ShellToDos "copy c:\autoexec.bat a:")

    Function ShellToDOS (strCommand$)

Static iRet%, iRet2%

iRet% = Shell(strCommand$)
While GetModuleUsage(iRet%)
    iRet2% = DoEvents()
Wend

ShellToDOS = iRet%

End Function
Mail to Daniel Wiman <daniel@wimania.com>
Online since June 1996, updated 971025		 <- The VB home
<- Daniels homepage