안녕하세요, Scripting Guy! - 임시 인터넷 파일 폴더에서 파일을 삭제하려면 어떻게 해야 하나요?

Const TEMPORARY_INTERNET_FILES = &H20&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)

어떻습니까? 이 많은 코드를 보고 매우 복잡하다는 생각이 들 것입니다. 먼저 상수 TEMPORARY_INTERNET_FILES를 임시 인터넷 파일 폴더에 연결하는 데 필요한 값인 &H20&로 설정합니다(분당 그 이상 필요). 그런 다음 Shell 개체를 만들고 Namespace 메서드를 사용하여 이 폴더를 찾습니다. Shell 개체의 고유 특성 때문에 Self 메서드를 호출하여 이 폴더에 실제로 연결합니다. 이와 관련된 코드 줄은 다음과 같습니다.

Set objFolderItem = objFolder.Self

이때 확인하려는 이 폴더의 실제 경로(예: C:\Documents and Settings\kenmyer\Local Settings\Temporary Internet Files)를 알 수 있습니다. 폴더 경로를 확인하려는 경우 다음과 비슷한 코드 줄을 사용하면 됩니다.

Wscript.Echo objFolderItem.Path

그러나 FileSystemObject를 사용해 이 폴더의 모든 파일을 삭제할 수도 있습니다. 이렇게 하려면 이 폴더의 모든 파일을 나타내는 표준 와일드카드 문자를 사용하여 다음과 비슷한 경로로 FileSystemObject를 전달해야 합니다.

C:\Documents and Settings\kenmyer\Local Settings\Temporary Internet Files\*.*

그리고 나서 다음 코드 줄을 사용하여 해당 경로를 구축합니다.

strPath = objFolderItem.Path & "\*.*"

Shell 개체에 의해 경로가 반환되면 \*.*를 추가합니다. 결과적으로 이 폴더의 모든 파일을 삭제하도록 FileSystemObject에 알려 주는 명령이 작성됩니다.

코드의 마지막 두 줄에서는 FileSystemObject의 인스턴스를 만든 다음 DeleteFile 메서드를 사용해 모든 파일을 삭제합니다. 그러면 임시 인터넷 파일 폴더가 깨끗하게 비워집니다.

물론 인터넷 쿠키 폴더도 정리할 수 있습니다. 다음은 이 작업을 수행하는 스크립트입니다.

Const COOKIES = &H21&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)

멋진 스크립트죠?

이 칼럼을 게시하면서 "내 그림 폴더에 어떻게 연결하나요?" 또는 "내 최근 문서 폴더에 연결하는 방법이 있나요?”와 같은 질문을 받게 될 것이라는 생각이 들었습니다. 따라서 스크립트 센터 스크립트 리포지토리  에 38개의 새 스크립트를 추가하였습니다. 이 스크립트는 Shell 개체를 사용해 액세스할 수 있는 특별한 폴더 각각에 연결하는 방법을 보여줍니다. 도움이 되시길 바랍니다!