Jump to content

ABA3D

Members
 View Profile  See their activity

  • Posts

    9

  • Joined

  • Last visited

 Content Type 

Posts posted by ABA3D

    Need help with a script

    in JavaScript

    Posted

    Hi :) I found simple script that uses InternetExplorer.Application fileDialog but its in VBscript :(can u help me to convert it to javascript?!here is the code:

    Option ExplicitWScript.Echo "Selected file: " & ChooseFile( )Function ChooseFile( )' Select File dialog based on a script by Mayayana' Known issues:' * Tree view always opens Desktop folder' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's    On Error Resume Next    Dim objIE, strSelected    ChooseFile = ""    Set objIE = CreateObject( "InternetExplorer.Application" )    objIE.visible = False    objIE.Navigate( "about:blank" )    Do Until objIE.ReadyState = 4    Loop    objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"    With objIE.Document.all.FileSelect	    .focus	    .click	    strSelected = .value    End With    objIE.Quit    Set objIE = Nothing    ChooseFile = strSelectedEnd Function

    thanks for ur help :)

    Need help with a script

    in VBScript

    Posted

    Hi :) I found simple script that uses InternetExplorer.Application fileDialog but its in VBscript :(can u help me to convert it to javascript?! here is the code:

    Option ExplicitWScript.Echo "Selected file: " & ChooseFile( )Function ChooseFile( )' Select File dialog based on a script by Mayayana' Known issues:' * Tree view always opens Desktop folder' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's    On Error Resume Next    Dim objIE, strSelected    ChooseFile = ""    Set objIE = CreateObject( "InternetExplorer.Application" )    objIE.visible = False    objIE.Navigate( "about:blank" )    Do Until objIE.ReadyState = 4    Loop    objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"    With objIE.Document.all.FileSelect	    .focus	    .click	    strSelected = .value    End With    objIE.Quit    Set objIE = Nothing    ChooseFile = strSelectedEnd Function

    thanks for ur help :)

    Need help with a script

    in VBScript

    Posted

    Hi I have this script that supposed to show me the path of the selected file but it shows me an error that says "Unspecified error."the error shows up in the error console and referrs to line 5.it shows up in the error console.it shows up in the error console.it shows up in the error console.it shows up in the error console.it shows up in the error console.it shows up in the error console.it shows up in the error console.it shows up in the error console.here is the code:

    function SelectFile(){var objShell = new ActiveXObject("Shell.Application");  var objFolder;	   	    objFolder = objShell.BrowseForFolder(0, "Open File", 16384);	    if (objFolder != null)	    {   var oFolderItem = objFolder.Items().item();   document.getElementById("fileNameS").value=oFolderItem.Path;	    }}

    Im using IE and wraping it with HTA.thanks for ur help :)

    Need help with a script

    in JavaScript

    Posted

    Hi I have this script that supposed to show me the path of the selected file but it shows me an error that says "Unspecified error." here is the code: 

    function SelectFile(){var objShell = new ActiveXObject("Shell.Application");  var objFolder;	   	    objFolder = objShell.BrowseForFolder(0, "Open File", 16384);	    if (objFolder != null)	    {   var oFolderItem = objFolder.Items().item()   document.getElementById("fileNameS").value=oFolderItem.Path;	    }}

    thanks for ur help :)

    i need help to convert VB script to javascript

    in JavaScript

    Posted

    hi Im writing a small app to my workplace and its using the WMI.I need it to run the notepad or any other app in hidden mode, so I found this script on the net but its in VBS. can anyone help me to convert it to javascript? here is the code: 

    Const SW_SHOW = 12Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")Set objSWbemServices = objSwbemLocator.ConnectServer(".","root\cimv2")Set oStartup = objSWbemServices.Get("Win32_ProcessStartup")Set oConfig = oStartup.SpawnInstance_oConfig.ShowWindow = SW_SHOWSet objCreateProc = objSWbemServices.Get("Win32_Process")int errReturn = objCreateProc.Create("notepad.exe",Null,oConfig,intProcID)

    thank u all for ur help :)

×
×
  • Create New...