获取电脑盘符

紫苏炒黄瓜 · 发表于 2021-8-3 23:24:35

之前发帖没发源码被diss了

，发个刚写的获取盘符，聊表歉意。

(setq zimubiao nil)
(setq panfu nil)
(setq xitongpan (substr (getenv "Windir") 1 1));系统盘符
(setq n 65)
(repeat 26
(setq zimubiao (cons (chr n) zimubiao))
(setq n (1+ n))
)
(setq zimubiao (reverse zimubiao));字母表
(setq panfu
(vl-remove nil
  (mapcar
(function
(lambda (x)
   (setq lujing (vl-filename-mktemp (strcat x ":\\a")))
   (if (/= (setq 1str (substr lujing 1 1)) xitongpan)
   1str
   )
)
)
zimubiao
  )
)
)
(setq panfu (cons xitongpan panfu))

写法比较偏门，也没怎么测试，大家试试吧。

紫苏炒黄瓜 · 发表于 2021-8-5 14:59:51

xj6019 发表于 2021-8-4 10:46
弱弱的问一句获取到盘符可以干嘛呀

比如写个a.txt，C盘经常碰到权限问题写不进，其它的盘又不确定有没有。

tryhi · 发表于 2021-8-8 22:37:16

本帖最后由 tryhi 于 2021-8-8 22:38 编辑

baitang36 发表于 2021-8-6 13:51
调用fas函数 get-logical-drives
lsp用不了，只能直接写fas

居然还有种操作，难不成FAS隐藏了一系列windowsAPI？

tryhi · 发表于 2021-8-12 09:29:45

baitang36 发表于 2021-8-12 07:51
功能都是猜出来的，怕误导别人。

可以大家一起猜啊，主要是正常情况下用不了这些函数，想猜也猜不了

cghdy · 发表于 2021-8-4 09:12:01

挺强的，连网络位置的服务器盘也获取了

lxl217114 · 发表于 2021-8-4 09:43:52

赞一个，必须赞一个

434939575 · 发表于 2021-8-4 10:01:35

好用，包括u盘也获取了。

xj6019 · 发表于 2021-8-4 10:46:18

弱弱的问一句获取到盘符可以干嘛呀

baitang36 · 发表于 2021-8-6 13:13:24

来个最小的
用法 (setq a (LOAD "D:/panfu.fas") )

自贡黄明儒 · 发表于 2021-8-6 13:32:39

baitang36 发表于 2021-8-6 13:13
来个最小的
用法 (setq a (LOAD "D:/panfu.fas") )

这个是什么原理？

baitang36 · 发表于 2021-8-6 13:51:06

自贡黄明儒发表于 2021-8-6 13:32
这个是什么原理？

调用fas函数 get-logical-drives
lsp用不了，只能直接写fas

账号		自动登录	找回密码
密码			注册

[源码] 获取电脑盘符

评分

本帖子中包含更多资源

评分