Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
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
|Create a memo box that will individually have memo input for each task.||9||21|
|using web browser with BING||40||89|
|Error when passing an argument to a vb6 that contains '/'||7||25|
|execution of the windows script host failed. (access is denied.)||3||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!