[求助]：创建文件或文件夹

scx

1、能否用lisp创建文件夹。
2、lisp创建的文件属性能否以隐藏形式建立。
敬请各位指教。

e2002

最初由 fylinwater 发布
[B]为里适合不同版本，三种方法我都用了
不知道doslib有没有2004版出来 [/B]

DOSLib 2004 推出有几个月了,
lkpt工具集中就附带的就是这个版本

你可以在其网站上下载 :

www.mcneel.com

或 ftp下载:
ftp.mcneel.com

jianqiang21c

好像没哦，只能用SHELL命令调用DOS用MD来实现唠
(command ".shell" "ATTRIB [文件路径][文件名] "H")来实现隐藏文件的建立哦

aeo

用doslib试一下

e2002

用ActiveX可以完成的,且不依赖外部arx.

2. 
   
3. (defun ax:CreateFolder (NewFolderName); / fso nFolder)
   
4.   (if (and (setq fso (vlax-create-object "Scripting.FileSystemObject"))
   
5.            (setq ParentFolderName (vlax-invoke-method
   
6.                                fso
   
7.                                'GetParentFolderName
   
8.                                NewFolderName)
   
9.            )
   
10.            (/= ParentFolderName "");not a drive
    
11.            (= (vlax-invoke-method fso 'FolderExists ParentFolderName)
    
12.              :vlax-true
    
13.            )
    
14.       )
    
15.    (progn
    
16.      (setq nfolder (vlax-invoke-method fso 'CreateFolder NewFolderName))
    
17.      (vlax-release-object nfolder)
    
18.      (vlax-release-object fso)
    
19.      NewFolderName
    
20.    );then
    
21.    
    
22. ;;;    (progn
    
23. ;;;      ;(princ "\n???")
    
24. ;;;      (setq ParentFolderName (ax:CreateFolder ParentFolderName))
    
25. ;;;    );else
    
26.   );end if
    
27. );end defun
    

<br /> (defun ax:CreateFolder (NewFolderName); / fso nFolder)<br />   (if (and (setq fso (vlax-create-object "Scripting.FileSystemObject"))<br />            (setq ParentFolderName (vlax-invoke-method<br />                                fso<br />                                'GetParentFolderName<br />                                NewFolderName)<br />            )<br />            (/= ParentFolderName "");not a drive<br />            (= (vlax-invoke-method fso 'FolderExists ParentFolderName)<br />              :vlax-true<br />            )<br />       )<br />    (progn<br />      (setq nfolder (vlax-invoke-method fso 'CreateFolder NewFolderName))<br />      (vlax-release-object nfolder)<br />      (vlax-release-object fso)<br />      NewFolderName<br />    );then<br />     <br /> ;;;    (progn<br /> ;;;      ;(princ "\n???")<br /> ;;;      (setq ParentFolderName (ax:CreateFolder ParentFolderName))<br /> ;;;    );else<br />   );end if<br /> );end defun<br />

fylinwater

为里适合不同版本，三种方法我都用了
不知道doslib有没有2004版出来

LUCAS

2. 
   
3. ;;创建文件或活页夹
   
4. ;;1、能否用lisp创建档夹。
   
5. ;;2、lisp创建的文件属性能否以隐藏形式建立。
   
6. ;;By LUCAS(龙龙仔)
   
7. ;;隐藏形式创建夹
   
8. ;;USAGE: (MAKEFOLDER "C:\\TMP")
   
9. 
   
10. (defun MAKEFOLDER (FNAME / SYS FOLDER)
    
11.   (if (not (findfile FNAME))
    
12.     (progn
    
13.       (setq SYS (vlax-create-object "Scripting.FileSystemObject"))
    
14.       (setq FOLDER (vlax-invoke-method SYS 'CREATEFOLDER FNAME))
    
15.       (vlax-put        FOLDER
    
16.                 "Attributes"
    
17.                 2
    
18.       )
    
19.       (vlax-release-object FOLDER)
    
20.       (vlax-release-object SYS)
    
21.     )
    
22.     (alert (strcat """ FNAME "" 档案夹已存在!!"))
    
23.   )
    
24.   (princ)
    
25. )
    

<br /> ;;创建文件或活页夹 <br /> ;;1、能否用lisp创建档夹。<br /> ;;2、lisp创建的文件属性能否以隐藏形式建立。<br /> ;;By LUCAS(龙龙仔)<br /> ;;隐藏形式创建夹<br /> ;;USAGE: (MAKEFOLDER "C:\\TMP")<br /> <br /> (defun MAKEFOLDER (FNAME / SYS FOLDER)<br />   (if (not (findfile FNAME))<br />     (progn<br />       (setq SYS (vlax-create-object "Scripting.FileSystemObject"))<br />       (setq FOLDER (vlax-invoke-method SYS 'CREATEFOLDER FNAME))<br />       (vlax-put        FOLDER<br />                 "Attributes"<br />                 2<br />       )<br />       (vlax-release-object FOLDER)<br />       (vlax-release-object SYS)<br />     )<br />     (alert (strcat """ FNAME "" 档案夹已存在!!"))<br />   )<br />   (princ)<br /> )<br />

scx

谢谢各位指点。