如果创建的文件夹已经存在，可以先删除，再创建。这样就不会出现错误信息了吧。

SET DATE ANSI
SET MARK TO "-"
CLEAR ALL
CLEAR
? myCreateDirectory("Backup\" + DTOC(DATE()))
CLEAR ALL
RETURN 

#DEFINE ERROR_SUCCESS            0x00
#DEFINE ERROR_PATH_NOT_FOUND     0x03
#DEFINE ERROR_ACCESS_DENIED      0x05
#DEFINE ERROR_ALREADY_EXISTS     0xB7
FUNCTION myCreateDirectory(tcDirectory)
    LOCAL lnResult
   
    DECLARE Integer CreateDirectory IN WIN32API String @cDirectory, Integer nAttributes
    DECLARE Integer GetLastError IN WIN32API
   
    lnResult = ERROR_SUCCESS
    IF CreateDirectory(tcDirectory, 0) == 0
        lnResult = GetLastError()
    ENDIF
    RETURN lnResult
ENDFUNC

注：当跨目录创建子目录时，被创建子目录的上层目录必须存在，否则返回值为ERROR_PATH_NOT_FOUND；当目录已存在时，返回值为ERROR_ALREADY_EXISTS，但不会显示信息，由程序员自己检测返回值进行处理。ERROR_SUCCESS表示操作成功，ERROR_ACCESS_DENIED是没有权限。

如果发现有新的错误码，在下面网页中寻找具体信息：
http://msdn.(v=vs.85).aspx

[ 本帖最后由 TonyDeng 于 2012-12-23 04:31 编辑 ]

非常感谢！可以创建子目录了，暂时还没发现什么问题。

[ 本帖最后由 guxnan 于 2012-12-24 13:38 编辑 ]