|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
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: |
strTargetFolder = "c:\test1"
strTargetFolder2 = "c:\test2"
strSourceFolder = "c:\test"
arrDataToFind = Array("test1","test2","test3")
arrDataToFind2 = Array("test4","test5","test6")
Dim FSO, oFolder, oFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Set ofolder = FSO.GetFolder(strSourceFolder)
For Each oFile In oFolder.Files
Set objFile = FSO.OpenTextFile(oFile.Path, intForReading, False)
strData = objFile.ReadAll
objFile.Close
Set objFile = Nothing
If oFile.Size < 1024 Then
' Check for the existence of any element from arrDataToFind
boolMatch1 = False
For Each strBit In arrDataToFind
If Instr(LCase(strData), LCase(strBit)) > 0 Then
boolMatch1 = True
Exit For
End If
Next
If boolMatch1 = True Then
'Move file
FSO.MoveFile oFile.Path, strTargetFolder
End If
' Check for the existence of any element from arrDataToFind2
If boolMatch1 = False Then
boolMatch2 = False
For Each strBit In arrDataToFind2
If Instr(LCase(strData), LCase(strBit)) > 0 Then
boolMatch2 = True
Exit For
End If
Next
If boolMatch2 = True Then
'Move file
FSO.MoveFile oFile.Path, strTargetFolder2
End If
End If
' Now check if nothing was found, delete the file
If boolMatch1 = False And boolMatch2 = False Then
FSO.Deletefile oFile.Path, True
End If
End If
Next
Set FSO = Nothing
|
Advertisement
| Hall of Fame |