Need Script modified

I need this script to give a message that is has completed after it is finished.

Option Explicit
Dim strSource : strSource = "\\client\c$\barcode\"
Dim strDest : strDest = "\\fileserver\community files\Public Files\Barcode\"
Dim strFileName : strFileName = "lb" & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & Right(year(date),2) & ".txt"
Dim strFolderPath : strFolderPath = strSource & strFileName
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

if objFSO.FileExists(strFolderPath) Then
  objFSO.CopyFile strFolderPath, strDest, True
end if
J.R. SitmanIT DirectorAsked:
Who is Participating?
MacroShadowConnect With a Mentor Commented:
Add at the end:

MsgBox "Proccess completed successfully!"

Open in new window

for more info see:
Scott Fell, EE MVEConnect With a Mentor Developer & EE ModeratorCommented:
If it this is on a webserver you can use response.write("Done")  

Running on the pc I believe you use MsgBox("Done") for a pop out message.
J.R. SitmanIT DirectorAuthor Commented:
these came in at the same time so I split the points.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.