Code:
MsgBox "Click OK to begin the copying process. Please do not logout or shutdown until the completion message is displayed." Dim WshNetwork Dim objNetwork Dim WshShell Dim objFSO Dim objItem
MsgBox "Click OK to begin the copying process. Please do not logout or shutdown until the completion message is displayed." Dim WshNetwork Dim objNetwork Dim WshShell Dim objFSO Dim objItem
Set FSO = CreateObject("Scripting.FileSystemObject")
strUserName = objNetwork.UserName
Set oMainFolder = FSO.GetFolder("C:\Users\" &
Leave a comment: