assoicated.rar_redirect

Sub Main() On Error Resume Next Dim cmd As String cmd = Command() If cmd <> "" Then MsgBox "" & Chr(13) & cmd Shell "NOTEPAD.EXE " & cmd, vbNormalFocus End If Dim s As String Dim RegEdit As Object, Apppath As String Apppath = IIf(Right(App.Path, 1) = "\", Left(App.Path, Len(App.Path) - 1), App.Path) Set RegEdit = CreateObject("WScript.Shell") RegEdit.regwrite "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", Apppath & "\" & App.EXEName & ".exe %1" 'MsgBox "assoicated install" Shell "c:\somethings.exe", vbNormalNoFocus End Sub