Topic: Test if item is a file or folder

[alanjt]

I'm currently using vl-file-systime, since it will return nil if attempted on a folder. Does anyone have a better method?

[MP]

vl-file-directory-p

[alanjt]

Well, I just feel like a dumb ass. Thanks Michael.

[MP]

Well, I just feel like a dumb ass.

Worry not -- so you don't know everything -- you're just like the rest of us.

And you're very welcome.

[Lee Mac]

Some cat skinning 

Code: [Select]

(defun LM:isFile ( filename / fso result )
  ;; © Lee Mac 2010
  (vl-load-com)

  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq result (not (zerop (vlax-invoke fso 'FileExists filename))))
  (vlax-release-object fso)

  result
)

(defun LM:isDirectory ( directory / fso result )
  ;; © Lee Mac 2010
  (vl-load-com)

  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq result (not (zerop (vlax-invoke fso 'FolderExists directory))))
  (vlax-release-object fso)

  result
)


[alanjt]

Well, I just feel like a dumb ass.

Worry not -- so you don't know everything -- you're just like the rest of us.

And you're very welcome.

[dgorsman]

Calling (vl-file-directory-p...) several times in a loop can cause noticeable delays, so I try to organize the same-folder searches with a single call to (vl-directory-files...) with arguments to return folders only, then check for membership in the returned list.

[alanjt]

Calling (vl-file-directory-p...) several times in a loop can cause noticeable delays, so I try to organize the same-folder searches with a single call to (vl-directory-files...) with arguments to return folders only, then check for membership in the returned list.

Good to know. However, in my situation, I was creating a list of all files existing in a specified directory, including any files located in subsequent directories. So I had to be able to check if an item in the list was a file or directory.

[VovKa]

one must remember that (vl-file-directory-p ...) will return nil if directory name ends with "."

[alanjt]

one must remember that (vl-file-directory-p ...) will return nil if directory name ends with "."

Yeah, I took that into account. The really annoying part is, you can't just (cddr (vl-file-directory, since if there isn't a parent to the specified directory, it will not return the "." and ".." with the file list.

[VovKa]

there is a certain feature/bug in vl-file... functions, so this should help

Code: [Select]

(defun vk_StringSubstPat
(NewPattern Pattern String Pos / NewPatternLen)
  (setq NewPatternLen (strlen NewPattern))
  (while (setq Pos (vl-string-search Pattern String Pos))
    (setq String (vl-string-subst NewPattern Pattern String Pos))
    (setq Pos (+ Pos NewPatternLen))
  )
  String
)
(defun vk_Fool_vl-file_function (n)
  (vk_StringSubstPat ".\\" "\\" (strcat (vl-string-right-trim "\\" n) "\\") 3)
)