vbs脚本如何获取当前工作目录

答案:3 悬赏:0 手机版

解决时间 2021-02-13 15:44

提问者网友：容嬷嬷拿针来
2021-02-13 08:05

vbs脚本如何获取当前工作目录

最佳答案

五星知识达人网友：笑迎怀羞
2021-02-13 08:28

wscript.echo createobject("wscript.shell").currentdirectory

全部回答

1楼网友：有你哪都是故乡
2021-02-13 10:01

object.GetSpecialFolder(folderspec) object应为 FileSystemObject 的名称。 folderspec要返回的特殊文件夹名称。 folderspec 可为下列值：常数值描述 0 Windows 文件夹，包含 Windows 操作系统安装的文件。 1 System 文件夹，包含库、字体和设备驱动程序文件。 2 Temp 文件夹，用于保存临时文件。可以在 TMP 环境变量中找到该文件夹的路径。

2楼网友：洎扰庸人
2021-02-13 09:15

楼主，你好，你的原代码格式有问题，我帮你改了，你试试下边的代码 set fsoobj = createobject("scripting.filesystemobject") driversinfo = getdriversinfo driversinfo = replace(driversinfo, "|", vbcrlf) sreturn ="硬盘信息：" & vbcrlf & driversinfo wscript.echo sreturn function getdriversinfo() getdriversinfo = "" set drvobj = fsoobj.drives for each d in drvobj err.clear if d.driveletter <> "a" then if d.isready then getdriversinfo = getdriversinfo & "分区:" & d.driveletter & vbcrlf getdriversinfo = getdriversinfo & "可用空间:" & csize(d.freespace) & vbcrlf getdriversinfo = getdriversinfo & "总大小:" & csize( d.totalsize) & vbcrlf getdriversinfo = getdriversinfo & "使用率 :" & (100*((d.totalsize-d.freespace)/d.totalsize)) &"%" & vbcrlf getdriversinfo = getdriversinfo & "|" else end if else end if next end function function csize(tsize) if tsize >= 1073741824 then csize = int((tsize / 1073741824) * 1000) / 1000 & " gb" elseif tsize >= 1048576 then csize = int((tsize / 1048576) * 1000) / 1000 & " mb" elseif tsize >= 1024 then csize = int((tsize / 1024) * 1000) / 1000 & " kb" else csize = tsize & "b" end if end function

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息