지정한 폴더내의 파일명이나 확장자를 일괄로 변경하는 매크로입니다. 윈도우용 유틸리티 중에 Rename-it 라는 프로그램을 자주 쓰는데 그 역할을 대신할 수 있습니다. (사실은 지식인에 답변 올렸다가 완전히 묻혀버렸지만 나중에 쓸 데가 있을 것 같아 올려놓습니다. ) '파일목록가져오기' 버튼을 눌러서 폴더를 지정하면 일단 폴더의 파일을 검색해서 출력합니다. 그 다음 일괄변경시키도록 했습니다. 새로운 파일명에 엑셀 수식을 이용해서 일괄적인 규칙을 부여할 때 유용하겠습니다. 그리고 파일명과 확장자를 분리하였습니다. 예를 들어 파일명 뒤에 "_1" 같은 것을 일괄로 붙여서 변경하는 상황을 가정한다면 수식을 이용해서 D3에 =B3 & "_1" 이런 식으로 바꾸고 아래로 끝까지 드래그해줍니다. 그리고 나서 '이름..
WshShell.SendKeys Send one or more keystrokes to the active window as if they were typed at the keyboard. This method is similar to the VB SendKeys method. WshShell.SendKeys "Character_string_and/or_SendKeys" Most ASCII characters can be represented by the character itself. E.g, the key sequence FRED can be represented by "FRED". Some special keys, such as the control keys, function keys etc are..
[VBS] Space 포함된 파일 실행하기 Space가 포함된 파일을 VBS 의 WScript.Run 을 수행하여 호출하면 정상적으로 동작이 수행되지 않고 에러가 발생한다. 이유는 파일 경로상에 공백이 존재하는 경우 이를 Script에서 인지하지 못하고 에러가 발생한다. (VBS 문법 자체가 띄어쓰기만으로 매게변수를 구분함) 따라서 쌍따옴표 (Double Quotes) 로 묶어주면 정상적으로 동작이 가능하다. 아래 스크립트는 띄어쓰기가 포함된 파일명을 매게변수로 전달받으면 전체 띄어쓰기를 Argument 값에 넣지 못하므로 ::: 이라는 띄어쓰기 대체용 문자를 교체하고 파일 전체 경로 양쪽 끝에 Quote 으로 묶어서 수행해주는 동작을 하는 예제이다. # Example.vbs Set WshShell = ..
[VBS] WshShell.SendKeys WshShell.SendKeys Send one or more keystrokes to the active window as if they were typed at the keyboard. This method is similar to the VB SendKeys method. WshShell.SendKeys "Character_string_and/or_SendKeys" Most ASCII characters can be represented simply by the character itself. E.g, the key sequence FRED can be represented by "FRED". Some special keys, such as the cont..
[VBS] Process Find and Activate vbs script 입니다. Process ID 를 찾아서 Activate 해주니까 쉽게 동작합니다. 예제는 PotPlayer 라는 동영상 재생용 멀티미디어 프로그램이고 현재 실행된 프로세스를 Name을 통해 찾고 가장 마지막에 실행되어있는 프로세스를 활성화시켜서 SendKeys 로 전체화면 설정, 프로세스가 없으면 새롭게 실행시켜 주고 SendKeys로 전체화면 설정. Set WshShell = WScript.CreateObject("WScript.Shell") Dim oWMI, oQuery, oProc, iCount, LastProc Set oWMI = GetObject("winmgmts:") Const ProcessName = "PotPlay..