On Error Resume NextDim i As IntegerDim Temp$
If Len(Dir(App.Path & \progra~1.dll)) 0 ThenOpen App.Path & \progra~1.dll For Input As #1Do While Not EOF(1)Line Input #1, TempIf Len(Dir(C:\Program Files (x86) & Temp)) 1 ThenCall ShellExecute(0, OPEN, C:\Program Files (x86) & Temp, vbNullString, vbNullString, 1)End IfLoopClose #1End IfEnd Sub
여기서If Len(Dir(C:\Program Files (x86) & Temp)) 1 Then 이부분중에
C:\Program Files (x86) 요부분을 %appdata%로 바꾸면 못찾더라고요환경변수로 바꿔도 찾을수있게 바꿀수있는방법이있을까요?
참고로 progra~1.dll의 내용물은 애드웨어 언인스톨 파일의 위치에요.\winpro\Uninstall.exe\WizSearch\WizSearch_Uninstall.exe\WizPop\WizPop_Uninstall.exe\UtilZone\uninstall.exe\IETab\Uninstall.exe\smarttip\uninstall.exe
파일 실행 질문!
갈기슭 2026.10.04 댓글 2
미국녀 2026.10.04
아 님말을 좀 바꿔서 응용했더니 됬네요 ㅎㅎ 감사합니다
text1.text를 만든다음에
Private Sub Form_Load()
Text1.Text = Environ(\appdata\)
로 만들고
\C:\\Program Files (x86)\이부분을 text1.text로바꿨더니 실행되더군요
암튼 도움주셔서 감사합니다 ㅎㅎ 답변으로하시면 채택해드릴게요
에드문드 2026.10.04
답변 해주신건 정말 감사합니다만
msgbox environ부분까진 이해했는데
()괄호친게 이해가.. 안되네요 ㅋㅋ
\C:\\Program Files (x86)\ 이부분을 그냥 환경변수로 바꾸시라는말씀같으신데
이미해본결과 안되던데요 ㅠㅠ ㅋ