如何在LSP中提取计算机信息

alin

Very good! Why my GetDrive method does not work? _$ (setq SYS (vlax-create-object "Scripting.FileSystemObject"))
(setq LIST_DRIVE (vlax-get-property SYS 'DRIVES))
(vlax-for ENT LIST_DRIVE
(setq
LST (append
LST
(list (strcat (vlax-get-property ENT 'DRIVELETTER) ":"))
)
)
)
#<VLA-OBJECT IFileSystem3 014b70c8>
#<VLA-OBJECT IDriveCollection 014b7480>
("A:" "C:" "D:" "H:" "I:" "J:" "L:" "M:" "N:" "O:" "P:" "Q:" "R:" "T:" "U:" "V:")
_$ (VLAX-DUMP-OBJECT SYS T)
; IFileSystem3: FileSystemObject
; Property values:
; Drives (RO) = #<VLA-OBJECT IDriveCollection 014b7480>
; Methods supported:
; BuildPath (2)
; CopyFile (3)
; CopyFolder (3)
; CreateFolder (1)
; CreateTextFile (3)
; DeleteFile (2)
; DeleteFolder (2)
; DriveExists (1)
; FileExists (1)
; FolderExists (1)
; GetAbsolutePathName (1)
; GetBaseName (1)
; GetDrive (1)
; GetDriveName (1)
; GetExtensionName (1)
; GetFile (1)
; GetFileName (1)
; GetFileVersion (1)
; GetFolder (1)
; GetParentFolderName (1)
; GetSpecialFolder (1)
; GetStandardStream (2)
; GetTempName ()
; MoveFile (2)
; MoveFolder (2)
; OpenTextFile (4)
T
_$ (VLAX-INVOKE SYS "GETDRIVE" "F:")
; error: An error has occurred inside the *error* functionAutoCAD variable setting rejected: "OSMODE" nil
_$ (VLAX-INVOKE-METHOD SYS 'GETDRIVE "F:")
; error: An error has occurred inside the *error* functionAutoCAD variable setting rejected: "OSMODE" nil

龙龙仔

;;("A:" "C:" "D:" "H:" "I:" "J:" "L:" "M:" "N:" "O:" "P:" "Q:" "R:" "T:" "U:" "V:")
;;你没有"F:"呀!!

alin

Sorry, I was lost. Now, what's matter again? _4$ (VLAX-INVOKE-METHOD SYS 'GETFOLDER "H:\\GC")
#<VLA-OBJECT IFolder 014b6b58>
_4$ (VLAX-INVOKE-METHOD SYS 'GETDRIVE "C:")
#<VLA-OBJECT IDrive 014b6c50>
_4$ (VLAX-INVOKE-METHOD SYS 'MOVEFOLDER "H:\\GC" "C:")
; error: Automation Error. Description was not provided.
_5$

龙龙仔

MoveFolder Method

Moves one or more folders from one location to another.

object.MoveFolder ( source, destination );

Arguments

object

Required. Always the name of a FileSystemObject.

source

Required. The path to the folder or folders to be moved. The source argument string can contain wildcard characters in the last path component only.

destination

Required. The path where the folder or folders are to be moved. The destination argument can't contain wildcard characters.

Remarks

If source contains wildcards or destination ends with a path separator (\), it is assumed that destination specifies an existing folder in which to move the matching files. Otherwise, destination is assumed to be the name of a destination folder to create. In either case, three things can happen when an individual folder is moved:

· If destination does not exist, the folder gets moved. This is the usual case.

· If destination is an existing file, an error occurs.

· If destination is a directory, an error occurs.

An error also occurs if a wildcard character that is used in source doesn't match any folders. The MoveFolder method stops on the first error it encounters. No attempt is made to roll back any changes made before the error occurs.

Important : This method allows moving folders between volumes only if supported by the operating system

(setq SYS (vlax-create-object "Scripting.FileSystemObject"))
(VLAX-INVOKE-METHOD SYS 'MOVEFOLDER "D:\\AA" "D:\\LSP\\")

alin

1. Important : This method allows moving folders between volumes only if supported by the operating system

复制代码

的确，在同一个盘内移动文件夹没问题，但磁盘之间就要supported by operation system, 不明白。究竟怎样才行？谢谢了，送花一朵

龙龙仔

还有很多方法呀! ; Methods supported:
; BuildPath (2)
; CopyFile (3)
; CopyFolder (3)
; CreateFolder (1)
; CreateTextFile (3)
; DeleteFile (2)
; DeleteFolder (2)
; DriveExists (1)
; FileExists (1)
; FolderExists (1)
; GetAbsolutePathName (1)
; GetBaseName (1)
; GetDrive (1)
; GetDriveName (1)
; GetExtensionName (1)
; GetFile (1)
; GetFileName (1)
; GetFileVersion (1)
; GetFolder (1)
; GetParentFolderName (1)
; GetSpecialFolder (1)
; GetStandardStream (2)
; GetTempName ()
; MoveFile (2)
; MoveFolder (2)
; OpenTextFile (4)