Here is a piece of a script I have:
For Each objFile2 in colFiles
If LCase(Left(objFile2.FileName, 2)) = "ex" And LCase(objFile2.Extension) = "log" Then
strCopy = "C:\logs\weblogs\" & strNewFolder & "\" & objFile2.FileName & "." & objFile2.Extension
If Not objFSO.FileExists(strCopy) Then
objFile2.Copy(strCopy)
Else
bError = true
Set objLogFile = objFSO.OpenTextFile("E:\logs\weblogs\" & strDate & "_Error Log.txt", ForAppending, True)
objLogFile.Write "File " & strCopy & " already exists!"
objLogFile.Writeline
objLogFile.Close
End If
End If
Next
...what I want to do is after the file is copied, verify the file copied and then delete the original.
Anyone got an elegant way to tie that into this piece of code?