VBS腳本，CopyFile文件

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 & "\"