Question

VBS怎么获取系统AppData文件夹路径

我有一个文件夹D:\aa现在想复制到C:\Users\yonghu\AppData\Local\文件夹下。
明白的人都知道，XP,WIN7或者不同的用户名这个路径就不是绝对的，像批处提的话可以直接用%AppData%\Local直接获取到该路径，可VBS怎么就不识别这个相对路径呢？请VB高手出山，这个复制代码应该怎么写？
大师，不知道为什么，正如你所说，我WIN7下，运用以上代码有问题，我指定%AppData%\Local这个路径可VBS执行时得到的总是%AppData%\Roaming这个
，完整的复制代码是这样的么：
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")
wscript.echo strHomeFolder
CreateObject("Scripting.FileSystemObject").CopyFolder "D:\aa\bb","%AppData%\Local\cc"
我的意思就是想把bb这个文件夹下面所有的文件包括子目录复制到cc文件夹下。

Answer 1

%AppData%路径的获取，可以通过两种方式，

1) 环境变量

Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")
wscript.echo strHomeFolder

2) shell的Namespace空间

Const ssfAPPDATA = &H1A
Set oShell = CreateObject("Shell.Application")
strHomeFolder = oShell.NameSpace(ssfAPPDATA).Self.Path
wscript.echo strHomeFolder

都可以“动态”的得到用户的AppData路径，后面自己添加Local字符串即可。（Win7下面AppData环境变量是要输出AppData\Roaming目录的，而Local和Roaming是平级，同样都是AppData下的子目录）

追问

大师，你看下问题补充，这个是什么情况

追答

如果要得到AppData\Local这个目录，而不是％AppData％（这个显示AppData\Roaming），用这个代码：

Const ssfAPPDATA = &H1C
Set oShell = CreateObject("Shell.Application")
strHomeFolder = oShell.NameSpace(ssfAPPDATA).Self.Path
wscript.echo strHomeFolder

就是上面的方法2，但修改了参数（&H1A->&H1C）。

结合你的例子：

Const ssfAPPDATA = &H1C
Set oShell = CreateObject("Shell.Application")
strHomeFolder = oShell.NameSpace(ssfAPPDATA).Self.Path
strAppDataPath = strHomeFolder & "\cc"

Wscript.Echo strAppDataPath
'CreateObject("Scripting.FileSystemObject").CopyFolder "D:\aa\bb",strAppDataPath

确认strAppDataPath是你要的最终路径后，可以把下一句CreateObject前面的'去掉，即可运行了。

追问

不错，可以复制了，嘿嘿。非常感谢大师，但是，为什么在运行这个VBS文件的时候，会先提示一个窗口，如何关闭这个窗口呢？

如图：

追答

那是由于vbs脚本的缺省执行是wscript.exe， 这个是窗口版本；还有一个cscript.exe 是命令行版本。解决方法有2个：

1） 用cscript运行你的脚本：

cscript /nologo xxxx.vbs

xxxx是你的vbs脚本名词；

2) 改变默认的脚本执行：

运行：

wscript /H:Cscript

或：

cscript /H:Cscript

以后都无需再键入cscript运行脚本了；这个修改是可逆的；不过缺点是无法自动/nologo参数（虽然可以通过修改注册表，把nologo也自动缺省实现，但比较改变太大，有需要时，反而不方便了），所以还是建议用1)的方法。

追问

用cscript运行？还要新建一个批处理文件，是吗：

cscript /nologo 1.vbs

这样我试过了，是没有窗口了，但是这样是不是麻烦了，能不能在VBS本身里面加关闭窗口的代码呢？

追答

这个不容易。 因为vbs本身是脚本，需要host去执行，这个host就是cscript或wscript，先有host，后有vbs，因此vbs里面再控制窗口，已经迟了。。。。

你现在的运行方式就是直接在vbs文件上点击？ 其实这样不见得好， 作一个批处理是很好的方式。

如果你就喜欢点击或命令行直接键入vbs文件名运行，那么作两件事：
① 先运行一次cscript /H:Cscript
② 然后修改注册表：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings\DisplayLogo
把它的键值修改为1

然后就可以了。不过问题是，你的vbs希望在其他电脑上运行，那么你需要逐一修改其他电脑上的注册表和缺省的cscript设置，这个反而不美， 因此还是结合批处理方便灵活。

追问

非常感谢大师指点，我现在接你前面说的，用cscript运行了，另外做了个bat启动,最后做自我删除，不管怎么样，已经达到了我的意思。再次感谢

追答

不必客气，对你有帮助就好啊～

Answer 2

Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
msgbox WshShell.SpecialFolders("AppData")