Dim oFSO
                Dim sDirectoryPath
                Dim oFolder
                Dim oDelFolder
                Dim oFileCollection
                Dim oFile
                Dim oFolderCollection
 
                Set oFSO = CreateObject("Scripting.FileSystemObject")
                sDirectoryPath = "C:\Test\test"
                set oFolder = oFSO.GetFolder(sDirectoryPath)
                set oFolderCollection = oFolder.SubFolders
                set oFileCollection = oFolder.Files
 
                For each oFile in oFileCollection
					IF oFile.Attributes = 2 Then	
						oFile.Delete(true)

					END IF	
	        Next