Unnamed

Set oFSO = CreateObject("Scripting.FileSystemObject")
oVidFolder = "ProClips"         'Video Recording Directory for WitnessPro
oDestFolder = "C:\Snapshots"    'Where the snapshots are kept
 
 
'Find the full path of oVidFolder
 
for each drive in oFSO.drives
   if drive.IsReady then
        oVidPath = drive.DriveLetter & ":\" & oVidFolder
        if oFSO.folderexists(oVidPath) then
        	oVidFolder = oFSO.GetFolder(oVidPath)
			    For Each Subfolder in oVidFolder.SubFolders
			        Set oFolder = oFSO.GetFolder(Subfolder.Path)
							if datevalue(oFolder.DateCreated) = datevalue(date) then
			          sNewestFile = GetNewestFile(oFolder)
			          sFName = oFSO.GetBaseName(sNewestFile)
			            Set oShell = CreateObject("WScript.Shell")
			             sShellCmd = "c:\windows\ffmpeg -i " & sNewestFile & " -y -f mjpeg -s 320x240 -vframes 1 " & oDestFolder & sFName & ".jpg"
			         oShell.run(sShellCmd)
							end if
					Next
				end if
   end if
next

     
 
 
'This is the function that finds the newest file in the folder
Function GetNewestFile(ByVal oFolder)
 
   sNewestFile = Null   ' init value
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFSO.GetFolder(oFolder)
   Set oFiles = oFolder.Files
 
   ' enumerate the files in the folder, finding the newest file
   For Each oFile In oFiles
     On Error Resume Next
     If IsNull(sNewestFile) Then
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     Elseif dPrevDate < oFile.DateLastModified Then
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     End If
     On Error Goto 0
   Next
   If IsNull(sNewestFile) Then sNewestFile = ""
   GetNewestFile = sNewestFile
 
End Function