thisFolder = ObjFSO.GetFolder(ruta y nombre de folder) caracter = "9" for each thisFile in thisFolder.Files if left(thisFile.name, len(caracter)) = caracter then 'borra el archivo end if next