【已解决】VBS如何引用系统环境变量值 - VBS求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS - Powered by Discuz!

批处理之家 » VBS求助&讨论 » 【已解决】VBS如何引用系统环境变量值

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

返回列表发帖

Rank: 8 Rank: 8

帖子: 3041
积分: 5330
技术: 684
捐助: 0
注册时间: 2014-10-19

1楼 跳转到 »

发表于 2016-8-19 13:34 | 显示全部帖子

只想说%HOMEDRIVE%\123还是绝对路径，你的问题是自以为vbs也能像批处理一样直接引用系统变量

1 评分人数

doswork: 版主确实很严谨的，学习了~技术 + 1

Rank: 8 Rank: 8

帖子: 3041
积分: 5330
技术: 684
捐助: 0
注册时间: 2014-10-19

2楼

发表于 2016-8-19 20:45 | 显示全部帖子

回复 7# doswork

暴力点，不管存不存在都建立

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
folder = "%HOMEPATH%\00\11"
ws.run "cmd /c md """&folder&"", 0
复制代码

Rank: 8 Rank: 8

帖子: 3041
积分: 5330
技术: 684
捐助: 0
注册时间: 2014-10-19

3楼

发表于 2016-8-19 21:28 | 显示全部帖子

本帖最后由 pcl_test 于 2016-8-19 22:47 编辑

1、

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
folder = ws.ExpandEnvironmentStrings("%HOMEPATH%")&"\00"
If fso.FolderExists(folder) Then ws.run "cmd /c md """&folder&"\11""", 0
复制代码

2、

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
folder = ws.ExpandEnvironmentStrings("%HOMEPATH%")&"\00"
'If fso.FolderExists(folder) Then fso.CreateFolder(folder&"\11")
If fso.FolderExists(folder) Then md(folder&"\11")

Function md(ByVal folder)
    If right(folder,1) <> "\" Then folder=folder&"\"
    arr = Split(folder, "\")
    subfolder = arr(0)
    For i = 1 To UBound(arr)-1
        subfolder = subfolder & "\" & arr(i)
        If Not fso.FolderExists(subfolder) Then fso.CreateFolder(subfolder)
    Next
End Function
复制代码

1 评分人数

doswork: 多谢版主指导~技术 + 1

Rank: 8 Rank: 8

帖子: 3041
积分: 5330
技术: 684
捐助: 0
注册时间: 2014-10-19

4楼

发表于 2016-8-19 22:17 | 显示全部帖子

本帖最后由 pcl_test 于 2016-8-19 22:18 编辑

回复 12# doswork

已改，被你10楼代码误导

Rank: 8 Rank: 8

帖子: 3041
积分: 5330
技术: 684
捐助: 0
注册时间: 2014-10-19

5楼

发表于 2016-8-23 19:24 | 显示全部帖子

本帖最后由 pcl_test 于 2016-8-23 19:27 编辑

回复 15# doswork
1、sh不知什么鬼
2、路径有空格等特殊字符

ws.Run "cmd /c xcopy """&folder&"\11\666\*.*""  """&folder&"\11\123\"" /e /h /k /y", 1
复制代码

路径没有空格等特殊字符

ws.Run "cmd /c xcopy "&folder&"\11\666\*.*  "&folder&"\11\123\ /e /h /k /y", 1
复制代码