PMFJI, but I'd use DTOS() function:
lcBackUpDir = [\Backup]+DTOS(DATE())
IF !DIRECTORY(lcBackUpDir())
MKDIR(lcBackUpDir)
ENDIF
....
HTH
>*Year month day
>bakdir = >'\BACKUP\'+ALLTRIM(STR(YEAR(DATE())))+ALLTRIM(STR(MONTH(DATE())))+ALLTRIM(STR(DAY(DATE())))
>IF !directory(bakdir)
> MKDIR (bakdir)
>ENDIF
>lcfile = 'mytable.dbf'
>newfile = bakdir+'\'+lcfile
>COPY FILE (lcfile) TO (newfile)
>Dear All, I am using these codes when i backup.
>
>If Directory('BACKUP')=.T.
> Set Safety Off
> Close Databases All
> Close Indexes
>
> Copy File boardlevel.cdx To .\backup
>and all............
>
> Set Safety On
> Endif
>Endproc
>
>But i want change folder name with current date.
>and copy all files in current folder date
>like this
>
>Copy File boardlevel.cdx To .\19/08/04
>thanks
