vbscript - 如何在 %AppData% 中创建文件夹和子文件夹

Question

首先，非常感谢您在过去六个月中为我找到了超过 3 个 Vbscript 的所有帮助，这些帮助挽救了我的生命。
我是 Vbscripting 的新手，我目前正在开发一个 Vbscript，它可以创建文件夹并同时复制文件，如果它们已经存在，则覆盖该文件夹和文件
要创建的文件夹和子文件夹 (Avaya) C:\Users\My Username\AppData\Roaming\Avaya\Avaya\one-X Agent\2.5\
文件从 (Myfile.txt) C:\Myfile.txt 到 C:\Users\My Username\AppData\Roaming\Avaya\one-X Agent\2.5\

我收到“找不到路径”错误，但是如果我离开路径直到 (Avaya) 它会创建 Avaya 文件夹但不是它的子文件夹 C:\Users\My Username\AppData\Roaming\Avaya\

这是我所拥有的，并在此先感谢您

Dim fso, vFolder
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
set objWShell = wScript.createObject("WScript.Shell")
usrName = objWShell.expandEnvironmentStrings("%USERNAME%")
Set fso = CreateObject("Scripting.FileSystemObject")
Set vFolder = fso.CreateFolder("C:\Users\" & usrName & "\AppData\Roaming\Avaya\one-X Agent\2.5\")
CreateFolderDemo = vFolder.Path

Answer 1

问题是CreateFolder不创建中间文件夹。 FSO 没有这样做的方法。可能更容易使用 mkdir像这样:

Option Explicit

Dim shl
Set shl = CreateObject("WScript.Shell")
Call shl.Run("%COMSPEC% /c mkdir ""%APPDATA%\Avaya\one-X Agent\2.5""",0,true)