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