谁能帮帮我，通过网络生成目录？

wzh

我从网上下载了一个磁盘操作函数，在本机生成多层目录没有问题，
可在服务器上或者在其他计算机上（通过网络连接）生成目录时出现
“Automation 错误。未提供说明。”的错误，并且没有创建目录。
这是为什么？ 下面是该程序代码： ;| 转换路径中字符 "/" 为 "\\" 并返回大写值
用法: (vldos-formatpath PathStringToFormat[STRING])
参数1: 路径字符串
说明:
此函数转换字符 "/" 为 "\\".
返回值:
[成功]: 转换后的字符串
[失败]: None
|;
(Defun vldos-formatpath (string)
(while (vl-string-search "/" string)
(setq string (vl-string-subst "\\" "/" string))
)
;(while (vl-string-search "\\\\" string)
; (setq string (vl-string-subst "\\" "\\\\" string))
;)
(setq string (strcase string))
string
) ;| 创建目录
用法: (vldos-mkdir DirectoryToCreate[STRING])
参数1: 目录的全路径名. 此函数会自动创建参数中所有不存在的目录.
说明:
可创建多层目录.
返回值:
[成功]: 创建目录的全路径名
[失败]: NIL
|;
(Defun vldos-MkDir (Folder / FolderX Fil FFF Pos DIR DRV)
(if (null
(setq
Fil (vlax-get-or-create-object "Scripting.FileSystemObject")
)
)
(setq Folder nil)
(progn
(while (vl-string-search "/" Folder)
(setq Folder (vl-string-subst "\\" "/" Folder))
)
(if (wcmatch Folder "*\\")
(setq Folder (substr Folder 1 (1- (strlen Folder))))
)
(setq FolderX Folder)
(while (setq Pos (vl-string-search "\\" Folder))
(setq FFF (cons (substr Folder 1 Pos) FFF)
Folder (substr Folder (+ Pos 2))
)
)
(setq FFF (reverse (cons Folder FFF))
DRV (car FFF)
FFF (cdr FFF)
)
(foreach DIR FFF
(if
(null (vl-file-directory-p (setq DRV (strcat DRV "\\" DIR)))
)
(vlax-invoke-method
Fil
'createfolder
DRV
)
)
)
(vlax-release-object Fil)
(if (setq Folder (vl-file-directory-p FolderX))
(setq Folder (vldos-formatpath FolderX))
)
)
)
Folder
)

meflying

这样就可以了：(vl-mkdir "\\\\abc\\xyz\\new") 在ABC电脑上的XYZ共享目录里建立new的文件夹，你要确保路径正确，并且有相应权限