복사 업데이트 VBScript를

Question

만들기 세 개의 탭이 복사와 함께, 업데이트, 취소하고 AVG

정의에 앞장 설 복사기/업데이터 module.Click에 "환영 표시하는 VBScript를

을 사용하여 다음과 같은

1.Messagebox을 acheive 저를 도와주세요 복사에서 파일 또는 업데이트가

정의 파일을 업데이트 복사합니다.

2.If 선택 복사, 스크립트가

로 저장 (USB 드라이브) 실행되는 곳에서 드라이브 문자를 6,

변수, 디렉토리 (예 = XCOPY/D)에 복사 업데이트 폴더에

을 존재하지 않는 존재하지 않을 경우, 새로운 파일을 생성 "(USB 드라이브) 업데이트", %의 \의 APPLIC ALLUSERSPROFILE

"%에서 ~ 1 \ avg8 \ 갱신 \ 다운로드 "가능한 디스플레이 메시지 3.If는

'파일을 복사,

복사 디스플레이의 동안 copying.After 완료' '성공적으로 복사 파일.

4. 만약 업데이트 선택 tdirectory "C : \ Update (업데이트)"를 만들어, 새로운에서 존재하지 않는

파일이 존재하지 않을 경우 : (USB 드라이브) 업데이트 폴더

에서 복사 "C \ 업데이트" \ 프로그래밍 ~ 1 \ 평균 :

업데이트의 copying.After 완성, 디스플레이 '파일 업데이트하면서 successfully'.After 확인 종료를 클릭하고

"C 시작'파일 업데이트 '가능한 디스플레이 메시지 5. 만약

\ avg8 \ avgui.exe "

Answer 1

글쎄, 내가 할 수있는 방법은 당신이 원하는 인터페이스 계층을 제공하기 위해 그 기능들을 HTA 안에 랩핑 한 각각의 기능적 작업을위한 독립적 인 기능을 만드는 것이다.

Answer 2

your other question에서 알 수 있듯이 대부분의 작업에 대한 해결책을 직접 찾을 수있었습니다. 귀하의 # 2에 대한 팁이 있습니다. 귀하의 스크립트에 구현 된 것을 눈치 채지 못했습니다.

2.If 복사 선택 변수로 저장된 스크립트 (USB 드라이브) 실행되는 곳에서 드라이브 문자

당신은 WScript.ScriptFullName 속성을 사용하여 현재 스크립트 파일의 전체 경로를 검색 할 수 있으며, 다음 드라이브 문자를 추출하는 FileSystemObject.GetDriveName 방법을 사용하십시오

Set objFSO = CreateObject("Scripting.FileSystemObject") 
strUSBDrive = objFSO.GetDriveName(WScript.ScriptFullName) 

이 당신에게 콜론 (예 : J:) 다음에 드라이브 문자를 제공 할 것입니다. 이 값을 대상 폴더 이름과 연결하여 전체 경로를 얻을 수 있습니다. 예 :

MsgBox strUSBDrive & "\Update"