I'm trying to code a script that will search through a folder and subfolders and delete by filname rather than extension. Dim objFSO, objFolder, objFiles, objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Test") Set colSubfolders = objFolder.Subfolders Set objFiles = objFolder.Files For Each objFile in objFiles If UCase(left(objFile.Name,6)) = "*_AFP_*" Then objFile.Delete, True Next Set objFiles = Nothing Set objFolder = Nothing Set objFSO = Nothing Any help would be greatly appreciated! Thanks in advance! T1b

If UCase(left(objFile.Name,6)) = "*_AFP_*" The above condition will never be true. There are no files actually named "*_AFP_*". They will all have individual names. The thing will have in common will be that they will contain "_AFP_" between characters 2 and 6. So why not say that: If UCase(mid(objFile.Name,2,5)) = "_AFP_" (not sure if I've got the numbers correct, but experiment and see.) Set objFiles = Nothing Set objFolder = Nothing Set objFSO = Nothing The above three statements are completely unnecessary since these objects are about to go out of scope anyway. I wouldn't bother setting any of these to nothing.

or maybe you could apply "instr" function to file.name: p=instr(ucase(objFile.name),"_AFP_") if p > 0 then objFile.delete or to make it more adaptable (in case the target string is less than 4 and you want to make sure the extension is not included in the string-test:) pdot=instr(objFile.name,".") if pdot=0 then pdot=len(objFile.name) test=ucase(left(objFile.name,pdot-1)) p=instr(test,"_AFP_")

Thanks nbrane, your solution is better than the one I suggested. I was wondering, though, isn't there a method that enumerates a set of files matching a given wildcard spec? That would be better than enumerating all files and then testing each one individually using string comparisons.

klint: thanks for v.o.c, appreciated. Your suggestion is first thing i tried in various ways and i could not get a collection based on wildcards. I would think that vbs would have a method for this however. i tried for *_AFP_* in folder.files for "*_AFP_*" in folder.files for each folder in folder.files "*_AFP_*" for each folder in folder.files(*_AFP_*) and maybe some other variations. I almost know there's a real simple way for vbs to do this, but i'm not uptospeed on vbs. i know as well when someone posts a solution that matches this situat. i will be doing the "palm-to-forhead" maneuver. that's why i like reading these forums. (me: "duh! why dint i think o that?")

Hi guy's Thanks for the replies :) I'm going to have to admit I'm a bit out of my depth (complete novice) and haven't managed to get the script to actually work. Dim objFSO, objFolder, objFiles, objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Test") Set colSubfolders = objFolder.Subfolders Set objFiles = objFolder.Files For Each objFile in objFiles pdot=instr(objFile.name,".") if pdot=0 then pdot=len(objFile.name) test=ucase(left(objFile.name,pdot-1)) p=instr(test,"_AFP_") then objFile.Delete, True End If Next I just keep getting expected End of Statement error on line 11 char 23 Thank you again for all your replies

expected End of Statement Do you mean UNexpected End IF statement? You seem to have inadvertently deleted a newline and an IF... in the line that has a THEN all by itself. See post 2.