Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Bypasses c:\fakepath\file.txt problem
- Function BrowseForFile()
- Dim shell : Set shell = CreateObject("WScript.Shell")
- 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")
- 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 shell = new ActiveXObject('WScript.Shell');" & _
- " shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
- " window.close();" & _
- " </script>" & _
- " </body>" & _
- "</html>"
- tempFile.Close
- shell.Run tempFolder & "\" & tempName & ".hta", 1, True
- BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
- shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
- End Function
- MsgBox BrowseForFile
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement