VBScript para abrir un cuadro de diálogo para seleccionar una ruta de archivo

Actualmente estoy abriendo un archivo con mi vbscript de la siguiente manera:

strFile = "C:\Users\test\file.txt" Set objFile = objFSO.OpenTextFile(strFile) 

Me gustaría cambiar esto para que el usuario pueda seleccionar / navegar un archivo y ese archivo se use en el script. ¿Cómo puedo agregar esta habilidad? He intentado buscar cómo cargar un diálogo de archivo / solicitar al usuario un archivo, etc. simplemente no estoy seguro de cómo completar en un VBScript.

Hay otra solución que me pareció interesante de MS TechNet, menos personalización, pero que obtiene lo que quería lograr. Esto devuelve la ruta completa del archivo seleccionado.

 Set wShell=CreateObject("WScript.Shell") Set oExec=wShell.Exec("mshta.exe ""about:""") sFileSelected = oExec.StdOut.ReadLine wscript.echo sFileSelected 

Aqui tienes:

http://www.robvanderwoude.com/vbstech_ui_fileopen.php

 strFile = GetFileName("C:\Users\test\", "Text files|*.txt") Set objFile = objFSO.OpenTextFile(strFile) Function GetFileName( myDir, myFilter ) ' Written by Rob van der Woude ' http://www.robvanderwoude.com ' Standard housekeeping Dim objDialog ' Create a dialog object Set objDialog = CreateObject( "UserAccounts.CommonDialog" ) ' Check arguments and use defaults when necessary If myDir = "" Then ' Default initial folder is "My Documents" objDialog.InitialDir = CreateObject( "WScript.Shell" ).SpecialFolders( "MyDocuments" ) Else ' Use the specified initial folder objDialog.InitialDir = myDir End If If myFilter = "" Then ' Default file filter is "All files" objDialog.Filter = "All files|*.*" Else ' Use the specified file filter objDialog.Filter = myFilter End If ' Open the dialog and return the selected file name If objDialog.ShowOpen Then GetFileName = objDialog.FileName Else GetFileName = "" End If End Function