태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

엄청 단순한 스크립트 하나를 보여주겄다.
특정 디렉토리내에서 특정 확장자를 가진 파일을 카운트 한다.

아래에 보다시피 C: 드라이브에서 Kei 폴더내에 TXT 확장자를 가진 파일의 갯수를 카운터 한다.
그 이하도 그 이상도 아니다 -_-;;;
아... 하위 디렉토리까지 뒤지지도 않는다 ^^;;;
하위 디렉토리까지 탐색하는건 나중에 차차 하도록 하겠습니다 ~

그리고 결과는 커맨드창 화면에 뿌려 준다.
더블클릭해서 실행했다면 팝업창 하나 딸랑 띄워서 결과를 보여 줄 것이다 :)
포스팅하기도 부끄러운 스크립트였슴다 =ㅠ=


Set objWMIService = GetObject("winmgmts:\.\root\cimv2")

Set colFiles = objWMIService. _
                    ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\kei\\' " & _
                    "AND Drive = 'C:' AND Extension = 'txt' ")

Wscript.Echo "Number of *.txt files Found: " & colFiles.Count

+ Recent posts