Question

我找到了一个用于打开文件浏览器的vbscript示例，我在WiX中使用自定义操作。但是，我使用的vbscript函数被称为BrowseForFolder()（而不是browseforfile），并且似乎只在选择目录时返回值，而不是在选择单个文件时返回。以下是自定义操作：

<CustomAction Id="File" Script="vbscript" Execute="immediate" Return="ignore">
  <![CDATA[
    Dim shell
    Set shell = CreateObject("Shell.Application") 
    Dim file
    Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000)
    Session.Property("FileName") = file.self.Path
  ]]>
</CustomAction>

使用这种方法，我实际上可以在对话框中看到单个文件，这是wix内置目录浏览器的一个步骤。

现在我只需要能够检索单个文件名，而不仅仅是文件夹的名称。任何帮助或建议将不胜感激！

Answer 1

我找到了这段代码。

https://gist.github.com/wangye/1932941

并对其进行了一些更改以便更好地理解

WScript.Echo GetOpenFileName("C:\", "")

' 
' Description: VBScript/VBS open file dialog
'              Compatible with most Windows platforms
' Author: wangye  <pcn88 at hotmail dot com>
' Website: http://wangye.org
'
' dir is the initial directory; if no directory is
' specified "Desktop" is used.
' filter is the file type filter; format "File type description|*.ext"
' 
'

Public Function GetOpenFileName(dir, filter)
    Const msoFileDialogFilePicker = 3


If VarType(dir) <> vbString Or dir="" Then
    dir = CreateObject( "WScript.Shell" ).SpecialFolders( "Desktop" )
End If

If VarType(filter) <> vbString Or filter="" Then
    filter = "All files|*.*"
End If

' try to choose the way to open the dialog box. Array: TryObjectNames
Dim i,j, objDialog, TryObjectNames
TryObjectNames = Array( _
    "UserAccounts.CommonDialog", _
    "MSComDlg.CommonDialog", _
    "MSComDlg.CommonDialog.1", _
    "Word.Application", _
    "SAFRCFileDlg.FileOpen", _
    "InternetExplorer.Application" _
    )

On Error Resume Next
Err.Clear

For i=0 To UBound(TryObjectNames)
    Set objDialog = WSH.CreateObject(TryObjectNames(i))
    If Err.Number <> 0 Then
        Err.Clear
    Else
        Exit For
    End If
Next

' Select the way to dealing the object dialog
Select Case i
Case 0,1,2
    ' 0. UserAccounts.CommonDialog XP Only.
    ' 1.2. MSComDlg.CommonDialog MSCOMDLG32.OCX must registered.
    If i=0 Then
        objDialog.InitialDir = dir
    Else
        objDialog.InitDir = dir
    End If
    objDialog.Filter = filter
    If objDialog.ShowOpen Then
        GetOpenFileName = objDialog.FileName
    End If
Case 3
    ' 3. Word.Application Microsoft Office must installed.
    objDialog.Visible = False
    Dim objOpenDialog, filtersInArray
    filtersInArray = Split(filter, "|")
    Set objOpenDialog = _
        objDialog.Application.FileDialog( _
            msoFileDialogFilePicker)
        With objOpenDialog
        .Title = "Open File(s):"
        .AllowMultiSelect = False
        .InitialFileName = dir
        .Filters.Clear
        For j=0 To UBound(filtersInArray) Step 2
            .Filters.Add filtersInArray(j), _
                 filtersInArray(j+1), 1
        Next
        If .Show And .SelectedItems.Count>0 Then
            GetOpenFileName = .SelectedItems(1)
        End If
        End With
        objDialog.Visible = True
        objDialog.Quit
    Set objOpenDialog = Nothing
Case 4
    ' 4. SAFRCFileDlg.FileOpen xp 2003 only
    ' See http://www.robvanderwoude.com/vbstech_ui_fileopen.php
    If objDialog.OpenFileOpenDlg Then
       GetOpenFileName = objDialog.FileName
    End If
Case 5
    Dim IEVersion,IEMajorVersion, hasCompleted
    hasCompleted = False
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    ' ????IE??
    IEVersion = shell.RegRead( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")
    If InStr(IEVersion,".") > 0 Then
        ' ??????
        IEMajorVersion = CInt(Left(IEVersion, InStr(IEVersion,".")-1))
        If IEMajorVersion > 7 Then
            ' ???????7,?????IE7,???MSHTA??
            ' Bypasses c:\fakepath\file.txt problem
            ' http://pastebin.com/txVgnLBV
            Dim fso
            Set fso = CreateObject("Scripting.FileSystemObject")

            Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
            Dim tempName : tempName = fso.GetTempName()
            Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
            Dim tempBaseName
            tempBaseName = tempFolder & "\" & tempName
            tempFile.Write _
                "<html>" & _
                "  <head>" & _
                "    <title>Browse</title>" & _
                "  </head>" & _
                "  <body>" & _
                "    <input type='file' id='f'>" & _
                "    <script type='text/javascript'>" & _
                "      var f = document.getElementById('f');" & _
                "      f.click();" & _
                "      var fso = new ActiveXObject('Scripting.FileSystemObject');" & _
                "      var file = fso.OpenTextFile('" & _
                          Replace(tempBaseName,"\", "\\") & ".txt" & "', 2, true);" & _
                "      file.Write(f.value);" & _
                "      file.Close();" & _
                "      window.close();" & _
                "    </script>" & _
                "  </body>" & _
                "</html>"
            tempFile.Close
            Set tempFile = Nothing
            Set tempFolder = Nothing
            shell.Run tempBaseName & ".hta", 1, True
            Set tempFile = fso.OpenTextFile(tempBaseName & ".txt", 1)
            GetOpenFileName = tempFile.ReadLine
            tempFile.Close
            fso.DeleteFile tempBaseName & ".hta"
            fso.DeleteFile tempBaseName & ".txt"
            Set tempFile = Nothing
            Set fso = Nothing
            hasCompleted = True ' ??????
        End If
    End If
    If Not hasCompleted Then
        ' 5. InternetExplorer.Application IE must installed
        objDialog.Navigate "about:blank"
        Dim objBody, objFileDialog
        Set objBody = _
            objDialog.document.getElementsByTagName("body")(0)
        objBody.innerHTML = "<input type='file' id='fileDialog'>"
        while objDialog.Busy Or objDialog.ReadyState <> 4
            WScript.sleep 10
        Wend
        Set objFileDialog = objDialog.document.all.fileDialog
            objFileDialog.click
            GetOpenFileName = objFileDialog.value
    End If
    objDialog.Quit
    Set objFileDialog = Nothing
    Set objBody = Nothing
    Set shell = Nothing
Case Else
     MsgBox("No file dialog component found", MsgBoxStyle.Exclamation, "Error")
End Select

Set objDialog = Nothing
End Function

WiX v3.7 - vbScript自定义操作BrowseForFolder（）不返回单个文件名

1 个答案: