rand(life)

C드라이브 사용량을 계산해보니 실제 사용중인 폴더의 크기와 맞지 않는다. 해결책을 찾아서 구글링해보니 c:\windows\temp 폴더 용량 증가 문제로 MS 커뮤니티에 올라온 질문과 답변이 있어서 해결방안의 하나로 소개한다. Windows 7 사용 중 temp 폴더에 용량이 계속 증가하는 증상으로 문의 주셨습니다.위 증상은 makecab.exe 프로세스로 인해 발생할 수 있습니다.CBS 폴더 내의 로그(c:\Windows\logs\cbs)를 삭제한 후 확인해 보시기 바랍니다.시작 > 실행 > services.msc 입력 > 확인서비스 창이 뜨면 오른쪽 이름 목록 중 Windows Modules Installer에서 오른쪽 마우스 버튼 클릭 후 서비스 중지를 선택이후 log 파일을 삭제 후 Windows..

CreateObject("Scripting.FileSystemObject") 를 이용하는 방법이다. (파란색 글씨가 핵심 부분이다) 출처: https://stackoverflow.com/ Option Explicit Public Arr() As String Public Counter As Long Sub macro() Dim myArr strPath = "d:\data\" myArr = GetSubFolders(strPath)Counter = 0 End Sub Function GetSubFolders(RootPath As String) Dim fso As Object Dim fld As Object Dim sf As Object Dim myArr Set fso = CreateObject("Scriptin..

166 대화상자로 파일열기변수 = application.getopenfilename(엑셀 파일, "*.xls*")if 변수 = "false" then exit subworkbooks.open 변수 177 작업폴더 변경chdrive "c" 현재드라이브변경chdir "c:₩temp" 현재폴더변경, (드라이브변경은 않음) 172 dir 함수를 처음 사용할 때는 폴더나 파일등 지정두번째부터 생략하고 dir() 로 이용가능dir (폴더명, vbDirectory) 폴더안에 파일존재하는지확인변수 = dir(경로 & "*.xls*") 174 파일복사파일존재여부 먼저 검사할것FileCopy f1, f2 f1파일을 f2파일로 복사 175 파일삭제kill f1kill 폴더명 & "₩*.*" 폴더안의 모든 파일 삭제파일이름 ..

어느 분이 댓글로 질문하신 내용입니다. http://flogsta.tistory.com/632#comment5458065 질문이 있는데요 만약에 같은 폴더 안에 있는 각각의 엑셀 파일에 동일한 메크로를 적용하고 싶을때는 메크로를 어떤 방식으로 돌려야지 가능한지 궁금해서 문의 드립니다. 제가 한 폴더 안에 엑셀 파일이 50개가 넘는데요 작업이 쉽지가 않아서요. 제가 가진 지식으로 해결할 수 없는 문제에 닥치면, 일단 구글의 도움을 빌립니다. 그랬더니, 역시나 답이 나왔습니다. 출처: http://www.eggheadcafe.com/software/aspnet/33007769/run-macro-on-multiple-files.aspx 다음의 매크로는 특정 폴더(여기서는 C:\Temp\)안에 있는 모든 엑셀..