首页 > 解决方案 > 第一次尝试编码,但文件位置失败

问题描述

问题是我试图在别人的桌面上创建一个文件,但我不知道在用户中写什么。

我试过了"C:\Users\" & strUser & "\desktop\Test"

Set fso = CreateObject("Scripting.filesystemobject")
  fso.Createfolder "C:\Users\" & strUser & "\desktop\Test"

错误:找不到文件位置。

标签: vbscript

解决方案


使用特殊文件夹 Shell 函数返回桌面的路径。

set objShell = Wscript.CreateObject("Wscript.Shell")
strDesktopPath = objShell.SpecialFolders("Desktop")

Set fso = CreateObject("Scripting.filesystemobject") 
fso.Createfolder strDesktopPath & "\Test"

推荐阅读