VBScript，复制文件文件

Question

我是 vbs 脚本的新手，我一直在编写一个脚本来创建一个包含用户输入的目录。然后脚本将特定文件复制到新创建的目录中。我似乎无法将文件放入新创建的目录。任何帮助都会很棒！

 dim UserName
Do
   UserName = InputBox ("Enter Client Name with no spaces IE: lastname_firstname")
   If UserName = "" then
      Msgbox "No Username entered"
   end if
Loop Until UserName <> ""

MsgBox "Please click OK to continue"

MsgBox "Check \\server\path\share\ for NEW client folder"

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir \\server\path\share\" & UserName

sPath = "\\server\path\share\"
Set oShell = CreateObject("WScript.Shell")
oShell.Run "explorer /n," & sPath & UserName, 1, False
Set oShell = Nothing

dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("\\server\path\share\some_type_file.docx") Then
filesys.CopyFile "\\server\path\share\some_type_file.docx", "\\server\path\share\" <<COPY FILE INTO NEWLY CREATED DIRECTORY "UserName">> 
End If

Answer 1

试着把最后一行改成这样

    filesys.CopyFile "\\server\path\share\some_type_file.docx", "\\server\path\share\" & UserName & "\"