[求助]代码如下,错误信息也在如何修改
PROCEDURE CreateDirLPARAMETER TCDIR
LOCAL LCOLDPATH , LLSUCCESS
IF EMPTY(TCDIR)
RETURN
ENDIF
TCDIR = ;
IIF(LEFT(TCDIR,2) = '\\',TCDIR,STRTRAN(ALLTRIM(IIF(RIGHT(TCDIR,1) = '\',LEFT(TCDIR,LEN(TCDIR) - 1),TCDIR)),'\\','\'))
IF DIRECTORY(TCDIR)
RETURN .T.
ELSE
LLSUCCESS = .T.
GNERRORCODE = 0
MD (TCDIR)
IF GNERRORCODE > 0
LLSUCCESS = .F.
ENDIF
ENDIF
IF .NOT. DIRECTORY(TCDIR)
LLSUCCESS = .F.
ENDIF
RETURN LLSUCCESS
ENDPROC错误编号:1002|信息:输入/输出操作失败。:DO d:\医药软件\明伦gsp医药管理软件.exe
|程序名称:CREATEDIR|行号:507
错误编号:1002|信息:输入/输出操作失败。:MD (TCDIR)|程序名称:CREATEDIR|行号:507