Copy Files Using VbScript

 
If (IsMember(objUser, "TEST") = True) Then   ' Change the group name (TEST) to the proper group name
 
' **************************** Enter variables and hard code the path to where the files are located ***************************
 
 
function getParent()
	fPath="\\bluewater\departments$\test\"
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set oFolder = oFSO.GetFolder(fPath)
	set oSubfolders = oFolder.Subfolders
 
 
' ****************************************  Prompt to enter USB key  ***********************************
 
 
Option Explicit
Dim strComputer, strMbox
'On Error Resume Next
strMbox = "."
strMbox = MsgBox("Please enter your usb key and press the enter key to continue")
If strMbox = 1 Then
strMbox ="."
End If
   
 
 
' ******************************************* The code below will find the usb device  *************************************
 
 
On Error Resume Next
 
strComputer = "."
 
 
arrDriveType = array("Unknown",_
		     "No Root Directory",_
		     "Removable Disk",_
		     "Local Disk",_
		     "Network Drive",_
		     "Compact Disk",_
		     "RAM Disk")
 
set WMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colDisks = WMI.ExecQuery("Select * from Win32_LogicalDisk")
 
For Each Disk in ColDisks
	strType = arrDriveType(Disk.DriveType)
	strID = Disk.DeviceID
	strSys = Disk.SystemName
 
If strType = "Removable Disk" then
 
strMbox = MsgBox("USB drive letter is") 
end if
 
If strMbox = 1 Then
strMbox ="."
End If
Next
 
' ********************* IF no removable usb device found then go to end   ********************************************
 
 
If strType = "." then
goto :EOF
End IF
 
' *************************  The code below will replace the files  **************************************
 
	
	for each oSubfolders in oSubfolders
		filePath=GetNewestFile(oSubfolders)
		if(instr(filePath, sToday)) then
			fileName = re.replace(GetFilenameFromPath(filePath),"")
			oFSO.CopyFile filePath , "\\bluewater\departments$\test\" & fileName , OverwriteExisting
		else
			 Set objTextFile = oFSO.OpenTextFile _
(fPath & "exception" & date() & ".txt", ForAppending, True)
objTextFile.WriteLine("output data")
objTextFile.Close
		end if
	next 
end function
 
 
EOF
 
End if
 
end 
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92: