cFolder1 = "C:\profiler32\data\" cFolder2 = "c:\temp1" cfiles = cFolder1+"*.dbf" DECLARE INTEGER CreateDirectory IN kernel32; STRING lpPathName, INTEGER lpSecurityAttr IF !DIRECTORY(cfolder2) IF CreateDirectory (cFolder2, 0) = 0 =MESSAGEBOX('Could not create '+cfolder2) RETURN ENDIF IF !DIRECTORY(cfolder2) =MESSAGEBOX('Could not create '+cfolder2) RETURN ENDIF ENDIF =ADIR(allfiles,cfiles) DECLARE INTEGER CopyFile IN kernel32; STRING lpExistingFileName,; STRING lpNewFileName,; INTEGER bFailIfExists FOR i = 1 TO ALEN(allfiles,1) =CopyFile(cfolder1+allfiles(i,1), cfolder2+"\"+allfiles(i,1), 0) ENDFOR return