Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 331
  • Last Modified:

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
0
J.R. Sitman
Asked:
J.R. Sitman
2 Solutions
 
MacroShadowCommented:
Add at the end:

MsgBox "Proccess completed successfully!"

Open in new window


for more info see: http://www.w3schools.com/vbscript/func_msgbox.asp
0
 
Scott Fell, EE MVEDeveloperCommented:
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.  http://www.w3schools.com/vbscript/func_msgbox.asp
0
 
J.R. SitmanAuthor Commented:
these came in at the same time so I split the points.

Thanks
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now