Search specific folder in all the drives and delete if found using QTP

[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