Topic: list of drive letters and names

[alanjt]

Does anyone know how to get a list of the mapped drives, including drive letter and name?

[ronjonp]

Here you go

Code: [Select]

(defun _getdrives (/ lst sfso)
; IDrive: Drive Interface
; Property values:
;   AvailableSpace (RO) = 1.96325e+011
;   DriveLetter (RO) = "C"
;   DriveType (RO) = 2
;   FileSystem (RO) = "NTFS"
;   FreeSpace (RO) = 1.96325e+011
;   IsReady (RO) = -1
;   Path (RO) = "C:"
;   RootFolder (RO) = #<VLA-OBJECT IFolder 00000000055475a8>
;   SerialNumber (RO) = -458001897
;   ShareName (RO) = ""
;   TotalSize (RO) = 2.49951e+011
;   VolumeName = ""
; No methods
  (if (and (setq sfso (vlax-create-object "Scripting.FilesystemObject"))
   (vlax-for x (vlax-get-property sfso 'drives) (setq lst (cons x lst)))
      )
    (progn (vlax-release-object sfso) (reverse lst))
  )
)
;; (mapcar '(lambda (x) (vlax-get x 'driveletter)) (_getdrives))

[alanjt]

Perfect! Thank you, Ron.

Code: [Select]

(mapcar
  (function
    (lambda (x)
      (list (vlax-get x 'DriveLetter)
            (vlax-get x 'ShareName)
      )
    )
  )
  (_getDrives)
)

[ronjonp]

Glad to help.

[alanjt]

Glad to help.

Very appreciated. I figured it would have to be with the FileSystemObject, but I am horrible at digging through that data.  :ugly: