是啊,我也这么认为,可是就是不执行,进入目录,可以执行.
我改了代码
dqlj=SYS(5)+SYS(2003)   &&获取程序工作目录
     mpath=space(512) &&变量mpath预留512个空字符。
     =SHGetPathFromIDList(pidl,@mpath) &&如果成功，用户选择的路径名，将自动填入mpath变量中。
   CLEAR DLLS
     *mpath=LEFT(mpath,50)  &&取左边字符串,后面的数字是长度
     mpath=ALLTRIM(mpath)   
     cd &mpath
   IF !directory("图书备份文件")
     MD 图书备份文件
   endif
     copy file &dqlj.\DATA\*.*  to  图书备份文件\.   &&将文件拷贝到所选文件夹下
     CD &dqlj
     messagebox(allt(mpath))           &&显示用户选择的路径名。

倒是能够执行,可是选了一些特殊目录,程序就出错,提示错误路径

能不能取消这些路径的显示啊?

md "c:\aa\bb\cc\dd"
在没有 C:\AA 的情况下，是可以创建正常的目录结构 c:\aa\bb\cc\dd
-------------------------
CLEAR DLLS
     mpath=LEFT(mpath,50)
-------------------------
为什么要 LEFT50 呢？如果返回来后面是 空格，用 RTRIM ，如果后面是 CHR(0) 就用 CHRTRAN 替换试下。

取回路径之后，用 DIRECTORY 判断路径是否合法，试下可以不