October 22, 201015 yr i have a .HTA app - based on the one availible here, and all works well (in windows).however, when i run this in winPE the dialog presents itself as blank.Does anyone know a method for presenting a proper open file dialog via HTA in WinPE currently im using the following to load the dialog (which works in windows) - ive tried a variety of other methods that all result in the dialog being drawn as blank.'****************************************************************************'* TEST DIALOG'* '****************************************************************************Function selectFile() Dim Result Dim IE : Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = False .Navigate("about:blank") Do Until .ReadyState = 4 : Loop With .Document .Write "<html><body><input id='f' type='file'></body></html>" With .All.f .Focus .Click Result = .Value End With End With .Quit End With Set IE = Nothing Dim ChooseFile ChooseFile = Result Dim isWim isWim = InStr((UCase(ChooseFile)), ".WIM") if isWim <> 0 Then wimfilename.value = ChooseFile checkWim() else msgbox("error - wim not selected")end if 'MsgBox ChooseFile()End Function
October 22, 201015 yr Your PE will need the Scripting and HTA packages installed.Otherwise, code questions will get this thread moved.
Create an account or sign in to comment