Manualmente hacemos clic derecho en un archivo y seleccione la opción «abrir con» para que se abra en otro formato.

Ahora necesito hacer esto a través de vbscript

  • No me queda claro lo que estás pidiendo – están preguntando por a) su VBScript para ser una de las opciones disponibles en la opción «Abrir Con» en el menú, o b) Dado un archivo, para recuperar la lista de «Abrir Con» elementos, y posiblemente invocar uno de ellos (a través de VBScript), o c) Dado un archivo, a través de VBScript, a causa de la «Abrir Con» diálogo a aparecer?
  • tengo que abrir un archivo con otro formato que el original tipo de archivo. por ejemplo: si un archivo está en formato de word a través de vbscript tengo que abrirlo en formato notpad
  • Que quieres decir, abrir un archivo mediante una aplicación diferente que la de por defecto?
InformationsquelleAutor Ramesh | 2010-08-10

2 Comentarios

  1. 7

    Para abrir un archivo utilizando una aplicación específica, utilice el WshShell.Ejecutar methood para ejecutar la aplicación y pasar el nombre de archivo como parámetro.

    Aquí un ejemplo en el que se abre el mismo archivo de texto en el Bloc de notas, Internet Explorer y Microsoft Word:

    strFileName = "c:\myfile.txt"
    Set oShell = CreateObject("WScript.Shell")
    
    oShell.Run "notepad "  & strFileName
    oShell.Run "iexplore " & strFileName
    oShell.Run "winword "  & strFileName

    Tenga en cuenta que si el nombre de archivo contiene espacios, necesita enslose comillas, así:

    oShell.Run "winword ""c:\my file.txt"""
    • Helen..el código funcionó por primera vez..después es tirar como «Microsoft VBScript en tiempo de ejecución error ‘800a0046’ – Permiso denegado», Pero no he cambiado el código ni la ruta de acceso del archivo o el archivo de permisos
  2. 0

    Si quieres crear una asociación script VBScript, por ejemplo cuando escribe haga clic en un archivo y abrirlo con algún programa, usted puede utilizar esta secuencia de comandos que yo había creado camino de regreso:

    '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

    Simplemente copiar código anterior, y pegar en un archivo y darle ese archivo .vbs extensión.

    • ¿dónde tenemos que dar la ruta de acceso del archivo se abra con otro tipo de archivo
    • Intente ejecutar la secuencia de comandos le pedirá la ruta de acceso con el ejemplo.
    • lo intenté, pero el archivo no se abre..Su muestra en pantalla el mensaje «El Menú de Contexto creado con éxito»..quiero abrir el archivo en el formato que yo le había dado cuando se le preguntó
    • Lo que tipo de archivo que ha especificado? y la path del archivo que desea abrir ese tipo de archivo con el?
    • el bloc de notas y la ruta de acceso es C:\test.doc..i han abierto la .el archivo doc en formato de bloc de notas

Dejar respuesta

Please enter your comment!
Please enter your name here