본문 바로가기
반응형

TechNical/WMI26

폴더내 파일명 일부 몽땅 변경 특정 폴더를 선택하고 파일명 전체나 일부를 모두 변경하는 WMI 스크립트입니다. 이렇게 해야 할 경우도 있더군요. 뭐.. 어쨌거나... 대소문자 구분이 좀 이상하네요..-_- 될 때도 있고 안될 때도 있고.... 사실.. 파일내에 문자까지도 치환했는데.. 이상하게.. 중복되어서 되는 그지 같은 현상이 발생되서 뺐습니다. 한... 80% 부족한 것 같은 느낌이... -_ㅠ [File_name_change.vbs] '폴더 선택 Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(MY_COMP.. 2008. 4. 1.
WMI] 다이얼로그 박스를 띄워서 폴더 경로 선택하기 이번에는 뭔가 비쥬얼한걸 해 보도록 하겠습니다. 맨날 텍스트만 보여주니 지루하기도 하구요. -_-a 예쁜 다이얼로그 박스를 띄워 봅시다~ 뭐.. 어차피 윈도우에서 제공하는 객체를 이용하므로 그냥 끌어다가 쓰기만 하면 됩니다. ㅎㅎ 사용자에게 폴더 경로를 선택하게 할 때는 이래저래 방법이 있겠지만 다이얼로그 박스를 띄워서 마우스 클릭질로 하는게 편리하고 정확한 경로를 지정할 수 있게 하겠지요. 한번에 반복적으로 작업을 해야 한다면 텍스트 입력박스를 띄우는게 편리하겠지만 한번씩 쓰는 것이라면 경로 트리가 보기좋게 뜨는 다이얼로그 박스가 좋을 것 같습니다. [Select_Folder.vbs] Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = .. 2008. 3. 12.
WMI를 이용해서 이메일 날리기 오랜만에 WMI관련 포스팅이군요.. 요즘에는 만사가 귀찮답니다 -_ㅠ WMI에서 e-mail도 날릴 수 있습니다!! 놀랬져 ㅎㅎ 코드는 상당히 간단합니다. CDO 오브젝트를 가져와서 그냥 이용하기만 하면 되지요. [Send_Mail.vbs] Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.From = "keiz@email.com" objMessage.To = "keiz@email.com;keiz2@email.com" objMessage.TextBody = "WMI Test Mail :D" objMessage.Send 보시면 아시겠지만 From,To,TextBody 라는 단어에서.. 2008. 3. 12.
WMI를 이용해서 빈 폴더 찾아 내기 WMI를 이용해서 폴더내에 내용이 없는 껍대기만 있는 폴더, 즉 빈 폴더를 찾아 보도록 하겠습니다. (말이 좀 어렵다 -_-;;;) 여기서 찾는 비었있는 폴더의 기준은 파일의 존재 여부와 상관없이 폴더의 사이즈가 0 인 것을 말 합니다. 예를 들어서 0바이트 짜리 텍스트 문서가 폴더 내에 존재 한다고 해서 이 폴더가 비어있는 폴더에서 제외되는 것은 아닙니다. 파일이 존재 하지만 사이즈가 0 이면 폴더 사이즈도 0 인 것입니다. 코드 보겠습니다~ 짧아서 좋습니다. ㅎㅎ [ FIND_EMPTY_FOLDER.VBS ] On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubFolders FSO.GetFolder("D:\".. 2008. 2. 27.
반응형