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