*退出系统自动备份到E盘程序
Close All
IF !DIRECTORY("E:\")
   Return
ENDIF
If !Directory("E:\数据备份\")
    MD E:\数据备份\
EndIf
If !Directory("E:\数据备份\data")
    MD E:\数据备份\data
EndIf
Copy File data\*.* to E:\数据备份\data\*.*
quit
请问如何实现自动备份到以当天日期为名字的文件夹中，比如：E:\数据备份\20160524\data

通过dtos()得到当天日期的字符串，然后组成路径并新建文件夹。

cPath = "E:\数据备份\"+DTOS(DATE())+"\data\"
If !Directory(cPath)
    MD (cPath)
EndIf
toFile = cPath + "*.*"
Copy File data\*.* to (toFile)

如果用户的电脑上没有“E分区”呢

对，拼凑出路径后，要先用　DIRECTORY()判断一下，如果没有，弹出对话框问用户要不要建立此文件夹？根据用户的选择，后面再跟　备份的代码。

使用绝对路径容易出现此类问题，自己使用一般很少出问题，但如果程序要提供给用户使用，就必须考虑这个问题，在程序中尽量不使用绝对路径。