Hello All
I have the following vbscript and i need help to modified in order to meet my needs since i dont know how to do it.
the script is:
-----------------------------------BEGIN OF SCRIPT---------------------------------------------------
Dim objFSO, ofolder, objStream
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("scripting.filesystemobject")
Set objNet = CreateObject("WScript.NetWork")
Set FSO = CreateObject("Scripting.FileSystemObject")
set outfile = fso.createtextfile("Move-Result.txt",true)
SPath = "c:\temp\"
ShowSubfolders FSO.GetFolder(spath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
CheckFolder(subfolder)
ShowSubFolders Subfolder
Next
End Sub
'CheckFolder(objFSO.getFolder(SPath))
Sub CheckFolder(objCurrentFolder)
Dim strTempL, strTempR, strSearchL, strSearchR, objNewFolder, objFile
Const OverwriteExisting = TRUE
currDate = Date
dtmDate = Date - 180
strTargetDate = ConvDate(dtmDate)
For Each objFile In objCurrentFolder.Files
FileName = objFile
'WScript.Echo FileName
strDate = ConvDate(objFile.DateCreated)
'strDate = ConvDate(objFile.DateLastModified)
If strDate < strTargetDate Then
objFSO.MoveFile FileName, "e:\test\"
outfile.writeline filename
End If
Next
End Sub
Function ConvDate (sDate) 'Converts MM/DD/YYYY HH:MM:SS to string YYYYMMDD
strModifyDay = day(sDate)
If len(strModifyDay) < 2 Then
strModifyDay = "0" & strModifyDay
End If
strModifyMonth = Month(sDate)
If len(strModifyMonth) < 2 Then
strModifyMonth = "0" & strModifyMonth
End If
strModifyYear = Year(sDate)
ConvDate = strModifyYear & strModifyMonth & strModifyDay
End Function
---------------------------------------------END OF SCRIPT-------------------------------------------
the thing is that i want help to the following:
1) to check the files in the folders and subfolders of the location c:\temp and based on the MODIFIED DATE to move them to the location e:\test
2) To keep the same exact directory structure in the new location e:\test
3) to have the ability to place somewere *.* to select all files from c:\temp or to put *.xls and to find and move only the .xls files that havents been used for 180 days with the same directory structure to e:\test.
Since i want to deploy this script with GPO i would like to replace the e:\test to an external HDD with the variable of the username. I intent to do this per user.
Any help will be appreciated.
thx