CODEWITHSUNDEEP
windowsvbscriptscripting
Off Grid
Off Grid

Reputation: 23

VBS Script, CopyFile File

I am new to vbs scripting, I have been working on a script to create a directory with user input. Then the script copies a specific file into the newly created directory. I can't seem to get the file into the newly created directory. any help would be great!!

 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

Upvotes: 0

Views: 850

Answers (1)

Maco
Maco

Reputation: 429

Try to change the last line to this

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

Upvotes: 0

Related Questions