> >LOCAL lcDirPath, lcCurrentDir, oShell, oDstFolder >Do while .T. > With ThisForm > lcCurrentDir = ALLTRIM(SYS(5))+ALLTRIM(SYS(2003)) > lcDirPath = ALLTRIM(.txtDirPath.Value) > IF EMPTY(.txtDirPath.Value) > Messagebox("Directory Pathname is Empty",0+16,"Invalid Entry") > Exit > ENDIF > IF .NOT. DIRECTORY(.txtDirPath.Value) > Messagebox("Directory Pathname Not Found!",0+16,"Invalid Entry") > Exit > ENDIF > SET SAFETY OFF > oShell = CREATEOBJECT("Shell.Application") > oDstFolder = oShell.NameSpace("&lcCurrentDir"+"\datafile") > IF VARTYPE(oDstFolder)="O" > oDstFolder.CopyHere("&lcDirPath"+"\*.*") > ENDIF > SET SAFETY On > Exit >Enddo > >