siddamharinath

Search specific folder in all the drives and delete if found using QTP. Dim fso, folder, file Dim folderName, searchFileName, renameFileTo' Parameters folderName = "C:\AutoRun_WEB" searchFileName = "Temp" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderName) For each file In folder.Files searchFileName = "Temp" If instr(file.name, searchFileName) <> 1 Then ' msgbox file.name End If Next