strDir = "D:\Backup"
strFileExt = "bak"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='" & strDir & "'} Where " & "ResultClass = CIM_DataFile")
For Each objFile In FileList
If objFile.Extension = strFileExt Then
' Wscript.echo "Extension : " & objFile.Extension
objFile.Delete
End If
Next
'2007/12'에 관한 글 4개
- 2007/12/30 ifstream 사용시, 한글 파일을 못 읽는 문제 2
- 2007/12/24 [TTF 동영상강좌] TDD 유닛테스트 기본 프로젝트 설정 1
- 2007/12/19 [MS-SQL] like 사용시 주의할 점 3
- 2007/12/09 [WMI] 원하는 폴더의 원하는 확장자 파일 모두 지우기
[WMI] 원하는 폴더의 원하는 확장자 파일 모두 지우기
프로그래밍/WMI 스크립트
2007/12/09 00:11
덧글을 달아 주세요