"Open with"vbscript를 통한 옵션

Question

수동으로 파일을 마우스 오른쪽 버튼으로 클릭하고 "open with"옵션을 선택하여 다른 형식으로 엽니 다.

지금 난 당신이 VBScript를 가진 연결 스크립트를 만들려면 사용자가 파일을 클릭 작성하고 특정 프로그램을 열 때, 예를 들어, VBScript를

Answer 1

을 통해이 작업을 수행 할 필요가, 당신은 내가 가진이 스크립트를 사용할 수 있습니다 돌아 오는 길에 생성 :

'Run Script 
InsertContextMenu 

Sub InsertContextMenu() 
Dim sText 
Dim sExePath 

'For executable-only context menu, the key should be created here 
'HKEY_CLASSES_ROOT\exefile\shell 

sText = InputBox ("Enter the Text for the context menu." & vbNewLine & vbNewLine & "Example" & vbNewLine & "Open with Notepad") 

If Len(Trim(sText)) > 0 Then 
    sExePath = InputBox ("Enter the path of the executable file for the context menu." & vbNewLine & vbNewLine & "Example" & vbNewLine & "C:\Windows\Notepad.exe") 
    If Len(Trim(sExePath)) > 0 Then 
     Set SHL = CreateObject ("WScript.Shell") 
     SHL.RegWrite "HKCR\*\Shell\" & sText & "\",sText 
     SHL.RegWrite "HKCR\*\Shell\" & sText & "\Command\", sExePath & " %1" 

     If Len(SHL.RegRead ("HKCR\*\Shell\" & sText & "\Command\")) > 0 Then 
      MsgBox "The Context Menu successfully created !.",vbInformation 
     Else 
      MsgBox "An unknown error has occured !!",vbCritical 
     End If 
    End If 
End If 

Set SHL = Nothing 
End Sub 

그냥 코드를 복사 및 붙여 넣기 파일에 해당 파일을 .vbs 확장을 제공합니다.

Answer 2

특정 응용 프로그램을 사용하여 파일을 열려면 WshShell.Run 메서드를 사용하여 해당 응용 프로그램을 실행하고 파일 이름을 매개 변수로 전달하십시오. 파일 이름에 공백이 포함되어있는 경우, 당신은 다음과 같이 따옴표로 enslose 필요가

strFileName = "c:\myfile.txt" 
Set oShell = CreateObject("WScript.Shell") 

oShell.Run "notepad " & strFileName 
oShell.Run "iexplore " & strFileName 
oShell.Run "winword " & strFileName 

참고 : 여기에

메모장, Internet Explorer 및 Microsoft Word에서 같은 텍스트 파일을 여는 예제

oShell.Run "winword ""c:\my file.txt"""