사용 권한이 없습니다.: 'LoadPicture' > 기술자료

• 목록

'이미지 사이즈 구하기
Sub GetImageSize(ByVal f, ByRef x, ByRef y)
  Set p = LoadPicture(f)
  x = CLng(CDbl(p.Width) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
  y = CLng(CDbl(p.Height) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
  Set p = Nothing
End Sub

위 코드를 이용해 이미지 사이즈를 구하려는데 LoadPicture 에서 에러가나는군요...

Microsoft VBScript 런타임 오류 error '800a0046'
사용 권한이 없습니다.: 'LoadPicture'

Microsoft VBScript ��Ÿ�� ���� ���� '800a004c' 
���θ� ã�� �� �����ϴ�.: 'LoadPicture' 


[ 해결방법 ]
파일 권한 문제입니다.
fso와 같다고 생각하면 됩니다.
윈도우탐색기 > 폴더 > 속성 > 인터넷 게스트 계정의 사용 권한 > 모든권한 부여
==> 수정, 읽기 및 실행, 폴더 내용 보기, 읽기, 쓰기 <==






참고자료
http://blog.naver.com/lost9725/60021782081