[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
TTTJJJ

Rank: 1

帖子
9 
积分
24 
技术
0  
捐助
0  
注册时间
2023-7-31 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2023-7-31 14:54 | 只看该作者

[问题求助] [已解决]VBS获取磁盘可用空间为什么一直提醒找不到?有哪位大侠愿意解惑的?万分感谢

本帖最后由 TTTJJJ 于 2023-7-31 15:45 编辑 
  1. W = InputBox("请输入：")

  2. Set objWMIService = GetObject("winmgmts:")

  3. Set objDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='W:'")

  4. WScript.Echo objDisk.FreeSpace
复制代码
收藏 分享

TTTJJJ

Rank: 1

帖子
9 
积分
24 
技术
0  
捐助
0  
注册时间
2023-7-31 
4楼
发表于 2023-7-31 15:44 | 只看该作者
回复 2# Batcher


    感谢大佬

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
3楼
发表于 2023-7-31 15:21 | 只看该作者
vbs里的变量不像bat 解释器会自己替换 需要把变量与其他变量连接在一起
你好

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14926 
积分
46132 
技术
857  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2023-7-31 15:17 | 只看该作者
回复 1# TTTJJJ 
  1. W = InputBox("请输入：")

  2. Set objWMIService = GetObject("winmgmts:")

  3. Set objDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='" & W & ":'")

  4. WScript.Echo objDisk.FreeSpace
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表